Verzeichnisgröße anzeigen

[daredd]

Hallo!
Ich habe mal wieder eine Frage, undzwar habe ich ein kleines Programm das anzeigen soll wie groß ein Verzeichnis ist oder eine Datei.
Nun beim Compeliren bekommen ich ein Fehlermeldung an der Stelle wo FolderSize gestartet wird:

Delphi-Quellcode:

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

  result := fldr.size; 
end;

procedure TMainform.Button1Click(Sender: TObject);
var
exs : Int64;
ex : String;
begin
     Button1.Visible := false;
     ex := MetaIni.ReadString('Path', 'ExportPath', '');
     exs := FolderSize(ex); // hier kommt die Fehlermeldung: Too many actual Parameters !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     Label16.Caption := Format('%d', [exs]);
end;

weiss jemand warum das passiert? auch wenn ich den ordner ohne die Registry angebe also gleich als String dann mekert der Compiler torztdem mit der selben Fehelrmeldung

[DeddyH]

Nur mal aus Verdacht: was passiert, wenn Du es so schreibst?exs := DeinUnitName.FolderSize(ex);

[daredd]

ALso da ändert sich nicht, es kommt die selbe Fehlermeldung!

[Luckie]

Delphi-Quellcode:

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

  result := fldr.size;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(FolderSize('C:\Windows')));
end;

Kompilieret ohne Probleme. Allerdings bekomme ich bei result eine Acception.

[daredd]

Ich hab das Problem Gelöst, habe oben in der Deklaration type nur zu stehen:

Delphi-Quellcode:

function FolderSize : Int64;
// Statt
function FolderSize(FolderName: string) : Int64;

deshalb hat er auch nicht den Parameter angenommen.

Danke trozdem