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.