Получить список всех файлов и папок FTP

[Nester]

Задача состоит в следующем:
Необходимо пройтись по всем папкам на сервере и извлечь их содержимое (путь к файлам)

начинаю с корня Pub
Path:='';
idFtp1.List(Tmp, Path, false);
потом добавляю
Path+'/';
снова загружаю список
иду по списку по очереди

теоретически всё понятно
но на практике чтото не соображу

в поиске не нашёл
если такая тема уже обсуждалась то пожалуйста ткните носом
если нет то помогите примером

[Квэнди]

а вопрос- то в чем ?

[Nester]

вот что у меня есть

 Lst:= TStringList.Create;//Список файлов и папок.
Tmp:= TStringList.Create;//Временный список

idFtp1.List(Tmp, '', false);//Получаем список папок в корневом каталоге...
Lst.AddStrings(Tmp);//переписываем из временного списка в наш список...

count:= 0;//Начальная позиция сканирования
LstCount:= Lst.Count;//конечная позиция сканирования

For n:= 0 to 1 do //Глубина сканирования...
begin
  For i:= count to LstCount-1 do//Сканируем часть списка...
  begin
  try
    idFtp1.List(Tmp, Lst.Strings[i]+'/', FALSE);//пытаемся получить список вложенных файлов.
    application.ProcessMessages;

  except continue//Не пустили - идем дальше...
  end;

  Lst.AddStrings(Tmp);//Приписали в список файлов все найденные файлы...
  end;

  count:= LstCount;//Запомнили новую начальную..
  LstCount:= Lst.Count;//...и конечную позиции...
end;//После чего сканим следующий кусок...




 for nn:=0 to lst.Count-1 do listbox1.Items.add(lst.Strings[nn]);

это работает при глубине сканирования=1
если больше то висит

проблема видимо в том что если мне попалась папка
и к Path я добавил+/ то всё Ок
а если файл то тут то и лажа

[Квэнди]

1. ExtListDir +F1
2. ExtListItem +F1
3. RetrieveCurrentDir+ F1
4. DirectoryListing +F1

Это только часть тоо что вам поможет для реализации задачи (названия методов свойств взяты из Indy 10.5.5) В Indy есть справка, которая содержит описание всех методов популярных компонент ( FTP клиент к таковым относится) не стесняйтесь ей пользоваться. Плюс на сайте разработчика www.indyproject.org есть пример Ftp клиента.
А тот метод, который вы предложили ужасно не надежен. За одно это

except continue//Не пустили - идем дальше...
end;

руки отрывать надо )

[Nester]

метод не мой
то что кривой согласен на все 300%
но это единственное что мне попалось
а за
ExtListDir
ExtListItem
RetrieveCurrentDir
DirectoryListing

спасибо! это я и искал