Delphi 得到文件夹大小

最新推荐文章于 2022-11-21 17:22:06 发布

aTian2009

最新推荐文章于 2022-11-21 17:22:06 发布

阅读量1.5k

点赞数

分类专栏： Delphi 文章标签： delphi download string function integer

Delphi 专栏收录该内容

97 篇文章 3 订阅

订阅专栏

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:\')));//注意参数最后一个字母应该为'\'