Как удалить директорию на FTP полностью со всеми вложениями и файлами.

Как удалить директорию на FTP полностью со всеми вложениями и файлами.
на ftp такая вот структура каталогов для удаления:
/111/1
/111/2/2/1
/111/3
/111/1.txt
/111/2.txt
/111/3.txtНужно удалить каталог 111 полностью, использую Indy 10, делаю так:

procedure TMainForm.DeleteDirectory(Dir: String);
var
  i: integer;
  FileName: string;
  AFTPItem: TIdFTPListItem;
begin
  IdFTP1.ChangeDir(Dir);
  IdFTP1.List;
  for i := 0 to IdFTP1.DirectoryListing.Count - 1 do
  begin
    AFTPItem := IdFTP1.DirectoryListing.Items[i];
    FileName := AFTPItem.FileName;
    if AFTPItem.ItemType = ditDirectory then
    begin
      if (FileName <> '.') and (FileName <> '..') then
      begin
        DeleteDirectory(FileName);
      end;
    end
      else
      begin
        IdFTP1.Delete(FileName);
      end;
  end;
    IdFTP1.ChangeDirUp;
    IdFTP1.RemoveDir(Dir);
end;

...
DeleteDirectory(string(ListView1.Selected.Caption));
...

и удаляется толька папка 1 и вылетает.

Сохраняйте список в локальную переменную.

С уважением, Vasilisk

примерно так:

rm -rf /

_Vasilisk_

Сохраняйте список в локальную переменную. С уважением, Vasilisk

А смысл, в Indy для этих целей есть клас TIdFTPListItems.
Даже если в переменную всёравно неудаляется :(
Уж и незнаю куда крутить, толи Delphi 6 и Indy 10.1.5 так коряво работают.

user32

А смысл, в Indy для этих целей есть клас TIdFTPListItems.

Смысл в том, чтобы не перезаписывать его при каждом рекурсивном вызове

user32

Даже если в переменную всёравно неудаляется :(

Не верю! (С) Константин Станиславский

user32

Уж и незнаю куда крутить, толи Delphi 6 и Indy 10.1.5 так коряво работают.

То ли руки...

_Vasilisk_,

Да хоть так:

procedure TMainForm.DeleteDirectory(Dir: String);
var
  DL: TStringList;
  i: integer;
begin
    DL := TStringList.Create;

    IdFTP1.ChangeDir(Dir);
    IdFTP1.List(DL, '', false);

    for i:= 0 to DL.Count -1 do
      begin
        if IdFTP1.Size(dl.Strings[i]) = -1 then
            DeleteDirectory(dl.Strings[i]) 
        else
            IdFTP1.Delete(dl.Strings[i]); 
      end;
    IdFTP1.ChangeDirUp;
    IdFTP1.RemoveDir(Dir);
    DL.Free;
end;

Ну раз такой бумбастик предложи свой вариант пряморукий ты наш... :D

Проблему решил, тему закрываю. Всем спасибо.