![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Доброго времени суток..
У меня такая проблема Есть катало (C:\Logs\) в нем ещо много других файлов и каталогоф... Короче вопрос состоит в том как реализирыветь программно што б все файлы с именем "log.txt" которые есть в каталогах и ПОДКАТАЛОГАХ папки Logs отправлялись на ФТП сервер? |
#2
|
|||
|
|||
![]() Сканируешь файлы через FindFirst/FindNext/FindClose (пример см в ФАКе) и составляешь список файлов. Если он не пуст, то с помощью IdFTPClient заливаешь на сервер. Все.
|
#3
|
|||
|
|||
![]() Ок...
Есть код: Код:
procedure TForm1.FindFile(Dir:String); Var SR:TSearchRec; FindRes:Integer; exten:string; begin FindRes:=FindFirst(Dir+'*.*',faAnyFile,SR); While FindRes=0 do begin if ((SR.Attr and faDirectory)=faDirectory) and ((SR.Name='.')or(SR.Name='..')) then begin FindRes:=FindNext(SR); Continue; end; if ((SR.Attr and faDirectory)=faDirectory) then begin FindFile(Dir+SR.Name+'\'); FindRes:=FindNext(SR); Continue; end; ListBox1.Items.Add(SR.Name); FindRes:=FindNext(SR); end; FindClose(SR); end; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Clear; FindFile('C:\Log\'); end; end. Может кто поможет поправить код и отправить найденые файлы на ФТП?.. Незнаю што прописать в IdFTP1.Put |