Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi递归方法获取文件夹大小 →→→→→进入此内容的聊天室

来自 , 2020-12-29, 写在 Delphi (Object Pascal), 查看 168 次.
URL http://www.code666.cn/view/a18ad9f9
  1. function GetFolderSize(vFolder: String): Int64;
  2. var
  3.   sr: TSearchRec;
  4. begin
  5.   Result := 0;
  6.   if FindFirst(vFolder + '*.*', faAnyFile, sr) = 0 then
  7.     repeat
  8.   if (sr.Name <> '.') and (sr.Name <> '..') then
  9.     begin
  10.       Result := Result + sr.Size;
  11.   if (sr.Attr and faDirectory) <> 0 then
  12.     Result := Result + GetFolderSize(vFolder + sr.Name + '\');
  13.   end;
  14.   until FindNext(sr) <> 0;
  15.     FindClose(sr);
  16. end;
  17. //delphi/5069

回复 "Delphi递归方法获取文件夹大小"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666