请问在PB中怎样获取某个目录的所占空间的大小，PB中好像只能获取文件的大小。

[windbluesky]

请问在PB中怎样获取某个目录的所占空间的大小，PB中好像只能获取文件的大小。

[编程夜猫]

找找MSDN吧。

[fbc]

怎么样获取文件的大小呢。

[joss]

有个DELPHI中的实现方法，但该函数我手头没有！只是耳闻！你可去DELPHI中放贴收个DLL过来！

实例我没有做过！

◇[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;

[klbt]

用API函数。

[888888888888]

强烈关注

[spawnwind]

PB9的例子中有