Hi!
Ich möchte eine Ordnergröße ermittel, und diese in einer Variablen speichern (möglichst genau, z.B.: 2.371.182.592 Bytes )
Nun gibt es diese Funktion:
Delphi-Quellcode:
function GetFolderSize(Path: string): string;
var
f: TSearchRec;
tmp: Int64;
const
sFormat = '%.2n MB';
begin
tmp := 0;
Path := IncludeTrailingPathDelimiter(Path);
if DirectoryExists(path) then
begin
FindFirst(Path + '*.*', faAnyFile, f);
repeat
if (f.Attr and FILE_ATTRIBUTE_DIRECTORY = 0) then
tmp := tmp + f.Size;
until FindNext(f) <> 0;
FindClose(f);
end;
Result := Format(sFormat, [(tmp / 1024) / 1024]);
end;
allerdings, kapier ich nicht, wie ich das jetzt in eine var bekomme (wie gesagt, möglichst genau)
Vielen Dank für eure Antworten
