Отправка файлов из подкаталогов на ФТП

[-=L.Morgan=-]

Доброго времени суток..
У меня такая проблема
Есть катало (C:\Logs\) в нем ещо много других файлов и каталогоф...
Короче вопрос состоит в том как реализирыветь программно што б все файлы с именем "log.txt" которые есть в каталогах и ПОДКАТАЛОГАХ папки Logs отправлялись на ФТП сервер?

[Пепел Феникса]

FindFirst/FindNext/FindClose
примеров масса.

[-=L.Morgan=-]

Зделал так:

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  FindRes: Integer;
begin
  ListBox1.Clear;

  FindRes := FindFirst('C:\Logs\*\log.txt', 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;

    ListBox1.Items.Add(SR.Name);
    FindRes := FindNext(SR);
  end;
  FindClose(SR);
end;

Но ничего в ListBox нет..

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(Dir + SR.Name);
      FindRes:=FindNext(SR); 
   end; 
FindClose(SR); 
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
FindFile('C:\Log\');
end;

end.

Всем спасибо разобрался! Этот код работает прекрасно. Теперь следующее вопрос. Как найденные файлы отправить на FTP.

Што прописать в IdFTP1.Put ?

Меня интересует как указать путь файлов которые нашол поиск...
А не сама функция отправки...

Не могли бы вы подправить код и добавить функцию отправки найденных файлов? .. Ибо я не осилю ...

Не помогло..

Может кто поможет поправить код и отправить найденые файлы на ФТП?..

...а мне вот интересно где в коде 5 поста вы сохраняете пути найденных файлов?

Вот уже поправил:

ListBox1.Items.Add(Dir + SR.Name);

А тепер подскажите как оформить путь к найденым файлам? Если так то не пашет:

IdFTP.Put (Dir + SR.Name, 1.txt, false);

Подскажите как правельно должно бить?

[raxp]

делаете так...

  IDFTP.Host:='111.11.11.11' ;
  IDFTP.Username:= 'Name';
  IDFTP.Password:= 'Pass';
  try
    IDFTP.Connect();
    IDFTP.ChangeDir(каталог на сервере);
    IdFTP.Put(ваш файл, имя файла на сервере); // вам надоть по циклу гнать все
  finally
    IDFTP.Disconnect
  end;

Меня интересует как указать путь файлов которые нашол поиск. А не сама функция отправки...

это вы щас написали. напомню

Как найденные файлы отправить на FTP

...а мне вот интересно где в коде 5 поста вы сохраняете пути найденных файлов?

ListBox1.Items.Add(SR.Name)

вы не забыли туда полный путь добавлять случаем? как выход могу предложить перерисовывать listbox и отображать только сам найденный файл через textout, а храниться будет полный путь.

вот это вам немного поможет http://www.programmersforum.ru/showp...79&postcount=4