Показать сообщение отдельно
  #1  
Старый 01.05.2014, 10:19
AirTex AirTex вне форума
Прохожий
 
Регистрация: 01.05.2014
Сообщения: 17
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию Поиск файла в папке и загрузка его на сервер

Вот код который загружает файл на сервер:
Код:
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 и отправлял их на сервер.
Можете помочь если не трудно? буду очень благодарен.
Ответить с цитированием