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

[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, Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
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;
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] TId[Ссылки могут видеть только зарегистрированные и активированные пользователи]
begin
id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
FileName :=(1.txt);
formData := TIdMultipartFormDataStream.Create;
formData.AddFile('file', fileName, 'text/plain');
Id[Ссылки могут видеть только зарегистрированные и активированные пользователи] := 'multipart/form-data';
try
response := Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', formData);
finally
id[Ссылки могут видеть только зарегистрированные и активированные пользователи]
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;

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