Verzeichnisgröße ermitteln

[Matze]

Wie es möglich ist, die Größe eines Verzeichnisses (inkl. Unterordner) zu ermitteln, zeigt Steve in diesem Beitrag. Diese Funktion gibt die Verzeichnis-Größe in Bytes zurück.

Hinweis: Damit diese Funktion funktioniert, muss in der Systemsteuerung unter Verwaltung -> Dienste Scripting gestartet sein.

Delphi-Quellcode:

uses
  ComObj;

function FolderSize(FolderName: string): Int64;
var
  fldr, fso: OleVariant;
begin
  fso    := CreateOleObject('Scripting.FileSystemObject');
  fldr   := fso.GetFolder(FolderName);

  result := fldr.size;
end;

Luckie empfiehlt, diese Funktion in einen Thread auszulagern, da es bei größeren Verzeichnissen ein wenig dauern kann, bis die Größe ermittelt wurde.

Edit: Nähere Erläuterungen, die den erforderlichen Dienst betreffen, sind den folgenden Beiträgen zu entnehmen.