Ordnergröße ermitteln

[h0ppsen]

Erstma: Hi @ all!!!

Nun gleich zu meiner Frage: Wie kann man von einem Ordner dessen Größe auslesen???

Ich dachte, dass es reicht aus einem TSerachRec einfach die Eigenschaft Size zu nehmen und fertig.

Für jede Hilfe schon jetzt großes Danke!

[ErazerZ]

den Ordner durchgehen und wenn searchrec.Attr and FILE_ATTRIBUTE_DIRECTORY = 0 dann in einer variable zusammenzählen
edit:

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;

[RWarnecke]

Schaue Dir mal diesen Link an. Dort wird gezeigt, wie die Verzeichnisgröße ermittelt werden kann.

[marabu]

Vorsicht!

Der verlinkte Code enthält einen klassischen Fehler: config folder (z.B. .borland) werden übergangen. Darüberhinaus muss man sich bewusst sein, dass der tatsächlich belegte Plattenplatz mitunter deutlich umfangreicher als die ermittelte size ist.

Grüße vom marabu

[Hawkeye219]

Ein weiteres Problem:

Bei Verzeichnissen mit mindestens 2 GByte Inhalt liefert die Funktion wegen des unzureichenden Ergebnistyps falsche Werte. Für Delphi 2006 reicht es aus, den Typ von Longint auf Int64 abzuändern, da Borland die Struktur TSearchRec angepaßt hat. In älteren Versionen werden Dateigrößen ab 2 GByte nicht richtig verarbeitet.

Gruß Hawkeye