Código
IdFTP1.List(nil) //Carrega a lista de Arquivos encontrados no FTP
for idx := 0 to IdFTP1.DirectoryListing.Count -1 do
if AnsiUpperCase('NomeArquivo') = AnsiUpperCase TP1.DirectoryListing.Items[idx].FileName) then
dtArqHost := IdFTP1.DirectoryListing.Items[idx].ModifiedDate;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009