indy ftp komplettes dir löschen ?

[agm65]

nur falls es jemanden interessiert

Delphi-Quellcode:

procedure TfrmMain.Button2Click(Sender: TObject);
var
i:integer;
ftpDir:string;
begin

     ftpDir := 'kleene_fotze';

     mainftp.Connect;

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

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

       //mainftp.ChangeDirUp;
       //memo1.Lines.Add('FTP Status: ' + mainftp.RetrieveCurrentDir);


      for I := 0 to Listbox.Count - 1 do
       begin
       mainFTP.Delete(listbox.Items.Strings[i]);
       memo1.Lines.Add('FTP Status: Datei gelöscht: ' + listbox.Items.Strings[i]);
      end;

      mainftp.ChangeDirUp;
      memo1.Lines.Add('FTP Status: ' + mainftp.RetrieveCurrentDir);

      mainftp.RemoveDir(ftpDir);
      memo1.Lines.Add('FTP Status: DIR - ' + ftpDir + ' gelöscht');


      end
      else
      begin
       memo1.Lines.Add('FTP Status: Connection closed');
     end;


end;