Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > вывод списка файлов директории

Автор: Klio 2.1.2011, 12:32

Здравствуйте господа программисты!
У меня такая проблема необходимо вывести список файлов определённой директории на удалённом компьютере в расшаренной папке?
Простым способом через TSearchRec возможен лишь вывод списка файлов только на локальном компьютере

Код


procedure ListFileDir(Path: string; FileList: TStrings);
var SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
     repeat
       if (SR.Attr <> faDirectory) then FileList.Add(SR.Name);
     until FindNext(SR) <> 0;
     FindClose(SR);
end;end;

На удалённом при попытке FindNext всегда возврат =0
Заранее благодарен за помощь...

Автор: Klio 2.1.2011, 14:02

Извиняюсь, как говорится - сам дурак...
-- Компонент возвращающий путь, создавал строку типа Dir:='\\comp\...\...\PathName'
В итоге нужно:

Код


1) ListFileDir(Dir+'\',ListBox); //вызов процедуры
2) if Dir[length(Dir)]<>'\' then Dir:=Dir+'\'
      ListFileDir(Dir,ListBox);
3) if FindFirst(Path + '\*.*', faAnyFile, SR) = 0 then //изменить в процедуре