ftp komplettes verzeichniss mit subdirs und files löschen

[agm65]

ja genau so habe ich auch angefangen aber wenn jetzt in einem dir, weitere dirs auftauchen..dann brauchste wieder ne listbox für die neuen dirs usw ! das ist ein fass ohne boden..

Delphi-Quellcode:

    if frmmain.mainftp.Connected = true  then
      begin
       frmmain.memo1.Lines.Add('FTP Status: Connected');
       frmmain.memo1.Lines.Add('FTP Status: ' + frmmain.mainftp.RetrieveCurrentDir);

       //change to user dir
       frmmain.mainFTP.ChangeDir(ftpDir);
       frmmain.memo1.Lines.Add('FTP Status: ' + frmmain.mainftp.RetrieveCurrentDir);
       //frmmain.mainftp.List(frmmain.listbox.Items ,'',false); //

       //change to delDir dir
       frmmain.mainFTP.ChangeDir(delDir);
       frmmain.memo1.Lines.Add('FTP Status: ' + frmmain.mainftp.RetrieveCurrentDir);
       frmmain.mainftp.List(frmmain.lstdirs.Items ,'',false); //


     
       for I := 0 to frmmain.lstdirs.Count - 1 do
       begin
        frmmain.mainFTP.ChangeDir(frmmain.lstdirs.Items[i]);
        frmmain.memo1.Lines.Add('FTP Status: ' + frmmain.mainftp.RetrieveCurrentDir);
        frmmain.mainftp.List(frmmain.lstfiles.Items ,'',false); //
        frmmain.mainftp.ChangeDirUp;
        //sldirs.Add(frmmain.ListBox.Items[i]);
       end;