Ich möchte jetzt nicht extra noch einen Thread aufmachen deswgeen meine Frage:
ich versuche mit dieser funktion
Delphi-Quellcode:
function FolderSize(FolderName: string): Int64;
var
fldr, fso: OleVariant;
begin
fso := CreateOleObject('Scripting.FileSystemObject');
fldr := fso.GetFolder(FolderName);
result := fldr.size;
end;
die größe eines verzeichnisses zu emritteln.
oben habe ich
FolderName: String;
so vereinbart.
und dann eine konstante festgelegt:
Delphi-Quellcode:
const
FolderMame =
'Dokumente und Einstellungen\Administrator\';
ButtonClick:
FolderSize(FolderMame);
Nur leider bekomme ich eine Fehlermeldung.