Descargar solo txt FTP

[ronald_tro]

Hola, estoy haciendo una aplicación que permite descargar archivos con FTP, mi código es este:

Código Delphi [-]
var
I: integer;
begin
for I:= 0 to ftp.DirectoryListing.Count-1 do
begin
   FTP.Get(FTP.DirectoryListing[i].FileName, Ç:\carpetadestino\' + FTP.DirectoryListing[i].FileName );
    Barra.Position:=Barra.Position+1;

Quisiera saber como hacer para que solo lea los archivos por ejemplo .txt y si se puede por ejemplo los archivos que inicien con la letra A___.txt y tengan la extensión .txt, gracias

[[egostar]]

Hola,

Lo que yo he hecho al respecto es obtener el listado de archivos filtrados y una vez conociendo los archivos ya puedo realizar el GET. Algo así:

Código Delphi [-]
var
  Lista: TStringList;
begin
  Lista := TStringList.create;
  FTP.List(Lista,'A*.txt',false);
  for I := 0 to Lista.Count - 1 do
  begin
    FTP.Get(Lista.Strings[i], NombreDestino, true);
  end;
end;

Saludos

[ronald_tro]

Nombre destino estaría entre comillas?

[ronald_tro]

Puse asi:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\', true);
end;

Me marca que no encuentra el destino

[[egostar]]

Empezado por ronald_tro

Puse asi:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\', true);
end;

Me marca que no encuentra el destino

Hola

Necesitas el nombre del archivo

Código Delphi [-]
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);

Saludos

[ronald_tro]

Codigo completo:

Código Delphi [-]
Var Lista: TStringList;
    i : Integer;
begin
Lista := TStringList.create;
FTP.List(Lista,'A*.txt',false);
for I := 0 to Lista.Count - 1 do
begin
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);
end;

Me arroja la siguiente pantalla: