Удалить папку с файлами на FTP

[ilyxaaa]

Добрый день.
Подскажите как удалить папку с вложенными файлами через idFTP.
Спасибо
Пока что придумал такой код

var
  i:Integer;
  Find: string;
begin
    idftp1.Host:=edt1.text;
idftp1.Username:=edt2.text;
idftp1.Password:=edt3.text;
idftp1.Passive:= True;
idftp1.Port:=21;
idftp1.Connect;              {Ïîäêëþ÷Г*åìñÿ}
if idftp1.Connected then  {Åñëè ïîäêëþ÷èëèñü òîãäГ*}
begin
     idftp1.ChangeDir(edt5.text);
     idftp1.List(mmo1.lines,'',false);
for i:=0 to mmo1.lines.count-1 do  begin
 idftp1.Delete(mmo1.lines.strings[i]);
end;
idftp1.ChangeDir('/');
idftp1.RemoveDir(edt5.Text);
 idftp1.Disconnect;
end;
end;

Удаляет папку и файлы в ней, при условии что в папке нету папок
подскажите как доработать, что бы он так же еще и папки в папке удалял?

[ilyxaaa]

Неужели не кто не знает как сделать?

[Stilet]

Я знаю. Нужно рекурсивно пройтись по всем каталогам внутри удаляемого и поудалять там все.

[ilyxaaa]

Stilet, Можешь подсказать как рекурсию сделать?

Нашел вот такой код

procedure DelFTPDir(Dir: String);
var
  DL: TStringList;
  i: integer;
begin
    DL:=TStringList.Create;
    Form28.idftp1.ChangeDir(Dir);
    Form28.idftp1.List(DL, '', false);
    for i:=0 to DL.Count-1 do
      begin
        if Form28.idftp1.Size(dl.Strings[i])=-1 then
            DelFTPDir(dl.Strings[i]) //Ðåêóðñèÿ
        else
            Form28.idftp1.Delete(dl.Strings[i]); //èíà÷å óäàëÿåì ôàéë
      end;
  Form28.idftp1.ChangeDirUp;
    Form28.idftp1.RemoveDir(Dir);
    DL.Free;
end;

Он удаляет все внутри папки, но вот саму папку он не удаляет.
А выдает ошибку.

[ilyxaaa]

Вот рабочий код если кому понадобится

procedure DelFTPDir(Dir: String);
var
  DL: TStringList;
  i: integer;
begin
    DL:=TStringList.Create;
    Form28.idftp1.ChangeDir(Dir);
    Form28.idftp1.List(DL, '', false);
    for i:=0 to DL.Count-1 do
      begin
        if Form28.idftp1.Size(dl.Strings[i])=-1 then
            DelFTPDir(dl.Strings[i]) //Ðåêóðñèÿ
        else
            Form28.idftp1.Delete(dl.Strings[i]); //èíà÷å óäàëÿåì ôàéë
      end;
 // Form28.idftp1.ChangeDirUp;

 Form28.idftp1.ChangeDirUp;
 if Dir=Form28.edt5.text+Form28.edt6.text then begin
    Form28.idftp1.ChangeDir('/');
    Form28.idftp1.RemoveDir(Dir);
    DL.Free;
    end else begin
    Form28.idftp1.RemoveDir(Dir);
    DL.Free;
    end;
end;

[Stilet]

Можешь подсказать как рекурсию сделать?

Не, примеров нет готовых, и времени пасть нема. Инвентаризацию свожу. Закопался в бумагаг шо крот )