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;
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;
Código Delphi [-] FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);
FTP.Get(Lista.Strings[i], 'K:\carpetadescarga\' + Lista.Strings[i], true);