[AirTex]

Вот код который загружает файл на сервер:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Stream: TIdMultipartFormDataStream; //для работы с формой отправки
begin
  Stream := TIdMultipartFormDataStream.Create;
 try
   Stream.AddFile('myfile', 'C:\papka\kzzk95349.txt', '');
   Memo1.text:=IdHTTP1.Post('ххххххх/index.php', Stream );
 finally
   Stream.Free;
 end;
  end;

мне нужно дополнить этот код- что бы скрипт искал все файлы в папке которые начинаются на kzzk и отправлял их на сервер.
Можете помочь если не трудно? буду очень благодарен.

[M.A.D.M.A.N.]

http://www.delphibasics.ru/FindFirst.php

[AirTex]

Сообщение от M.A.D.M.A.N.

http://www.delphibasics.ru/FindFirst.php

спасибо конечно, так как я новичок немного не понял где он ищет (в какой папке) и тд. faAnyFile - что за переменная? и как мне сделать что бы найденный файл (который начинается на kzzk) заносился в переменную (всего файлов в папке будет от 2х и больше)

Спасибо разобрался!