[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

这个函数可以获得指定目录下所有的文件路径+名称，能够递归搜索：

procedure FindAllFile(const Dir: string;List: TStringlist);

var

hFindFile: THandle;

FindFileData: WIN32_FIND_DATA;

FullName,FName,s:string;

begin

s:=IncludeTrailingPathDelimiter(Dir);

hFindFile := FindFirstFile(pchar(s+'*.*'), FindFileData);

if hFindFile <> 0 then begin

repeat

FName:=FindFileData.cFileName;

FullName:=s+FName;

if (FName='.') or (FName='..') then continue;

if (FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then

FindAllFile(FullName,List)

else

begin

List.Add(FullName);

end;

until FindNextFile(hFindFile, FindFileData) = false;

windows.FindClose(hFindFile);

end;

这个函数可以获得指定文件的大小：

function GetFileSizeByName(AFileName: string): Int64;

var

h: THandle;

dwHigh,dwLow:DWORD;

begin

dwHigh:=0;

if FileExists(AFileName) then

begin

h:= FileOpen(AFileName,fmOpenRead or fmShareDenyNone);

dwLow:=GetFileSize(h,@dwHigh);

if (dwLow = $FFFFFFFF) and (GetLastError() <> NO_ERROR) then

Result:=0

else

Result:= (dwHigh shl 32) + dwLow;

FileClose(h);

end

else

Result := 0;

end;

要获得目录的总大小，可以先用第一个函数获得所有目录下文件的列表，然后遍历这个列表，累加文件尺寸。
正在装载数据……

本文来源：http://blog.csdn.net/mrtechno/archive/2007/07/09/1683308.aspx

最新热点		最新推荐		相关文章
		在delphi中使用xml文档有… 初探delphi 7 中的插件编… delphi 2006(dexter) & … 获得windows的版本信息。 “序列号输入助手”源代… rs232串口通讯模块 ado方式下判断数据表是否…		Ant入门－配置和使用选… 浅析Spring框架下PropertyPl… SPRING+STRUTS+HIBERNATE登录… MVP——Model-Viewer-Presen… C++ Object Model constructor and destructor 绑定HGE到AngelScript脚本系… delegate C#关键字 (委托类型… Boyer-Moore String Searchi… 【游戏制作基础】网络游戏设…