VPF::Как удалить директорию на FTP полностью со всеми в

User32

Дата 9.7.2009, 13:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 7.11.2005

Репутация: нет
Всего: нет

Как удалить директорию на 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));
...

Проблему поборол, но интересны мне и другие варианты решения.
Так что тему не закрываю.

Это сообщение отредактировал(а) User32 - 13.7.2009, 12:35

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »