delphi如何计算一个文件目录的大小

本文整理自网络，侵删。

 delphi如何计算一个目录的大小

function GetDirectorySize(const ADirectory: string): Integer;
var
Dir: TSearchRec;
Ret: integer;
Path: string;
begin
Result := 0;
Path := ExtractFilePath(ADirectory);
Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);
if Ret <> NO_ERROR then exit;
try
while ret=NO_ERROR do
begin
inc(Result, Dir.Size);
if (Dir.Attr in [faDirectory]) and (Dir.Name[1] <> .) then
Inc(Result, GetDirectorySize(Path + Dir.Name + \*.*));
Ret := Sysutils.FindNext(Dir);
end;
finally
Sysutils.FindClose(Dir);
end;
end;
 

相关阅读 >>

8086 汇编指令手册查询

Delphi的对象注销方法destroy和free的区别

Delphi原生方法取得文件的md5

Delphi 首字母转换大写

Delphi实现背景音乐播放

Delphi有关asqlite控件支持中文路径的解决方案

Delphi android 安卓中保持屏幕常亮

Delphi xe10.x 快捷失灵解决办法

Delphi winapi: getnextwindow - 获取指定窗口z上或z下的窗口的句柄

Delphi与进程、窗口句柄、文件属性、程序运行状态

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi如何计算一个文件目录的大小