Hi ihr lieben
Habe ein Problem: Ich schreibe mit meinem Programm auf eine DVD-
RAM. In meinem Programm kann ich eine "maxsize" angeben. Soll heißen, das der Ordner in dem ich schreibe nicht größer als X werden darf.
Das bedeutet das ich vor jedem Kopiervorgang prüfe, wie viel Platz ich noch zur Verfügung habe. Das passiert mit folgendem Code:
Delphi-Quellcode:
function getFolderSize(FolderName: string): Int64;
var
fldr, fso: OleVariant;
begin
fso := CreateOleObject('Scripting.FileSystemObject');
fldr := fso.GetFolder(FolderName);
result := fldr.size;
end;
Das Problem ist, das ich eine "maxsize" von 4GB habe und die Abfrage, wie viel Platz noch zur Verfügung steht ziemlich lange dauert :/
Hat jemand einen Tipp wie ich das beschleunigen kann?
Danke im Voruas