Программное определение размера директории

← →
me2 (2003-03-21 17:34) [0]

Подскажите пожалуйста, как реализовать сабж?

← →
MBo © (2003-03-21 17:38) [1]

обходом по findFirst etc

← →
me2 (2003-03-21 17:42) [2]

Пробовал так
function TMainForm.GetBaseSize: Integer; var SearchRec: TSearchRec; FindResult: Integer; begin Result := -1; FindResult := FindFirst("c:\SomeDir", faDirectory, SearchRec); if FindResult = 0 then Result :=SearchRec.Size; end;
Но Result равен нулю, хотя если читать размер файла, то все нормально.
Видать придеться делать как говорит MBo

← →
Anatoly Podgoretsky © (2003-03-21 17:53) [3]

me2 (21.03.03 17:34)
А что ты имеешь ввиду, когда говоришь размер "директории", оно как бы размера не имеет

Я делал так
Procedure GetDirSize(Path:string; var size:int64);
var
SR: TSearchRec;
tPath: String;
begin
tPath := IncludeTrailingBackSlash(Path);
if FindFirst(tPath+"*.*",faAnyFile,SR) = 0 then
begin
try
repeat
Application.ProcessMessages;
if SR.Name[1]="." then Continue;
case (SR.Attr and faDirectory) of
faDirectory: GetDirSize(tPath+SR.Name,size);
else Size:=Size+SR.Size;
end;
until FindNext(SR)<>0;
finally
FindClose(SR);
end;
end;
end;

Программное определение размера директории Найти похожие ветки