Рализация передачи фаилов

[fanatic4444]

Есть код который передает на сервер файлы по 1 с названием которое вы напишете в FileName :=(*);
А вот можно ли реализовать чтоб он искал файлы начинающиеся на as и отправлял их на сервер ?

Сам код

Цитата: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdMultipartFormData, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; IdHTTP1: TIdHTTP; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var FileName: string; response: string; formData: TIdMultipartFormDataStream; idhttp1: TIdHTTP; begin idhttp1 := TIdHTTP.Create(nil); FileName :=(1.txt); formData := TIdMultipartFormDataStream.Create; formData.AddFile('file', fileName, 'text/plain'); IdHTTP1.Request.ContentType := 'multipart/form-data'; try response := IdHTTP1.Post('http://localhost/upload.php', formData); finally idhttp1.Free; end; end; end.

[NebesaBag]

А что, если попробовать так.
Функция которая возвратит список файлов. А далее уже делаете, что необходимо с этим списком:

function CustomSearch(MyDir:string):TStringList;
var
  tsr : tsearchrec;
  MyList :TStringList;
begin
MyList:=TStringList.Create();
  if FindFirst(MyDir + '*.*',faAnyFile,tsr) = 0 then
    repeat
      if pos('as',tsr.name)=1 then MyList.Add(tsr.name);
    until FindNext(tsr) <> 0;
  FindClose(tsr);
Result:=MyList;
MyList.Free;
end;

Возможны ошибки. Часть кода по памяти, часть из гугла.