Fórum Verificar se existe arq. no FTP. #357313

Boa Noite, Walter:

Espero que te ajude:

1)IdFTP1- ja conectado e na pasta a ser verificada...

function FTPArquivoExiste(_file: string): boolean;
var i: integer;
aFilesFTP: TStringList;

begin
result:= false;
aFilesFTP:= TStringList.Create;

{Preenche a estrutura IDFTP1.DirectoryListing...}
IdFTP1.list(aFilesFTP,_file,true);

for i:= 0 to (IdFTP1.DirectoryListing.Count-1) do begin
result:= uppercase(_file) = uppercase(IdFTP1.DirectoryListing.Items[i].FileName);

if result then break
end;

aFilesFTP.free;
end;


Abraco