Delphi 得到文件夹大小

最新推荐文章于 2026-06-28 15:52:24 发布

转载最新推荐文章于 2026-06-28 15:52:24 发布 · 1.6k 阅读

收录于

Delphi

本文介绍了一个使用Delphi编程语言实现的递归函数，用于计算指定文件夹及其子文件夹内的文件大小。通过遍历目录并累加文件大小，该函数能够高效地获取指定路径下所有文件的总大小，并提供了两种方式来处理子文件夹：包括或不包括。

function TForm1.getdirsize(dir:   string;   subdir:   boolean):longint;
var
rec:TSearchRec;
found:integer;
begin
result:=0;
if   dir[length(dir)]<>'\'   then   dir:=dir+'\';
found:=   findfirst(dir+'*.*',   faAnyFile,   rec);
while   found=0   do
begin
    inc(result,   rec.size);
    if (rec.Attr and   faDirectory > 0) and (rec.Name[1]<>'.') and (subdir=true) then
      inc(result,   getdirsize(dir+rec.Name,   true));
    found:=findnext(rec);
end;
findclose(rec);
end;

/////////////////////////////////////////////////////////////////////////////////////////////////

delphi 递归获取文件夹大小

function   GetDirSize1   (dir:   string;   subdir:   boolean):   longint;
var
      rec:   TSearchRec;
      found:   integer;
begin
      result:=0;
      if   dir[length(dir)]<>'\'   then   dir:=dir+'\';
      found:=   findfirst(dir+'*.*',   faAnyFile,   rec);
      while   found=0   do
      begin
        inc(result,rec.size);
        if (rec.Attr and faDirectory>0) and (rec.Name[1]<>'.') and (subdir=true) then
              inc(result,   getdirsize(dir+rec.Name,   true));
          found:=findnext(rec);
      end;
      findclose(rec);
end;

  procedure   TForm1.Button1Click(Sender:TObject);
begin
   label1.Caption:=FloatToStr(GetDirSize('e:\download',false)/sqr(1024))+'MBytes';
   label2.Caption:=FloatToStr(GetDirSize('e:\download',true)/sqr(1024))+'MBytes';
end;

/////////////////////////////////////////////////////////////////////////////////////////

function GetFolderSize2(vFolder: String): Int64;
var
sr: TSearchRec;
begin
Result := 0;
if FindFirst(vFolder + '*.*', faAnyFile, sr) = 0 then
repeat
if (sr.Name <> '.') and (sr.Name <> '..') then
begin
Result := Result + sr.Size;
if (sr.Attr and faDirectory) <> 0 then
Result := Result + GetFolderSize(vFolder + sr.Name + '\');
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
------------------------------------
调用ShowMessage(IntToStr(GetFolderSize('e:\')));//注意参数最后一个字母应该为'\'