Anzahl von Dateien in FTP-Verzeichnis auslesen in Delphi 7

[_HAWK_]

Hallo,

ich will ein Progi schreiben was in einem Intervall auf ein FTP-Verzeichnis schaut ob Dateien vorhanden sind und ggf. ausliest.

Das Programm funktioniert sofern Dateien da sind aber wenn keine vorhanden sind bekomme ich eine Fehlermeldung *.No such File or Directory

Das Programm an sich ist kein Prob nur die Stelle an dem er nach den Dateien schaut.

kann mir jemand helfen? Vielleich kann man dies meldung ja auch abfangen...

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 habe das auch schon im 5er probiert... Dort habe ich es geschafft aber das Problem war wenn das Progi etwa 50 mal aufgerufen wurde dann hat es sich aufgehangen... und zwar bei dem list bwz nlist befehl. Villeicht hat dazu jemand noch ne idee...

Delphi-Quellcode:

procedure TForm1.DOC_EINLESEN;
var   
   sList:TStrings;
begin
     FTP_IDOC.Connect;
     FTP_IDOC.ChangeDir(Dir_Name');
     FTP_IDOC.List;                                  // hier hängt das Programm irgentwann
     if slist.Count = 0 then showmessage('lala');
     .
     .

mfg

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]