GetFolderSize

[value is NULL]

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