Anzahl von Dateien in FTP-Verzeichnis auslesen in Delphi 7

[Ultimator]

1.) Bitte nimm die Delphi-Tags
2.)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
SList: TStrings; 
begin 
IdFTP1.Connect(True); 
SList := TStringList.Create; 
IdFTP1:=ChangeDir('Dir_Name'); 
IdFTP1.List(slist,'*',false); // wenn keine Datei vorhanden dann kommt hier der Fehler 
Listbox1.Items:=sList; 
IdFTP1.Disconnect; 
end;

Ich würde das mit try-except machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
SList: TStrings; 
begin 
IdFTP1.Connect(True); 
SList := TStringList.Create; 
IdFTP1:=ChangeDir('Dir_Name'); 
try
IdFTP1.List(slist,'*',false); // wenn keine Datei vorhanden dann kommt hier der Fehler 
except
//was du willst, z.B. ShowMessage
end;
Listbox1.Items:=sList; 
IdFTP1.Disconnect; 
end;