ActiveDelphi

[rebotea]

Boas como poderei comparar datas de ficheiros em pasta local e remota e efectuar o download dos necessários.

begin
try
if IdFTP2.Connected then
IdFTP2.Disconnect;
IdFTP2.Username := '...';
IdFTP2.Password := '...';
IdFTP2.Host := '.....';
IdFTP2.Connect();
IdFTP2.ChangeDir('/geral');
IdFTP2.List(ListBox1.Items,'/geral',false);

if ListBox1.Items.Count = 0 then
begin
Abort;
end;

for indice:= 0 to ListBox1.Items.Count -1 do
begin
try
ListBox1.Selected[indice] := true;
bytesToTransfer := IdFTP2.Size(ListBox1.Items.Strings[indice]);
IdFTP2.Get(ListBox1.Items.Strings[indice],'C:\hp\' + ListBox1.Items.Strings[indice],true);
except on e:exception do
showmessage(e.Message);
end;
end;

finally
IdFTP2.Disconnect;
Showmessage ('concluido!');
end;

[natanbh1]

Veja se este tópico ajuda:

http://www.activedelphi.com.br/forum/viewtopic.php?t=66636&highlight=
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[rebotea]

sim e para pegar os varios ficheiros?

[natanbh1]

Pelo que entendi, seu código já lista os arquivos do FTP.

Para listar os arquivos de uma pasta local, veja se estes links ajudam:

http://www.planetadelphi.com.br/dica/6282/listar-todos-os-aquivos-de-um-diretorio

http://www.devmedia.com.br/listando-arquivos-de-um-diretorio/1112
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[johnny-walker]

Se você quer facilidade, sem código, eu utilizaria os seguintes componentes:

JvDirectoryListBox1
JvFileListBox1
JvDriveCombo1

Com estes componentes do jedi você não precisaria fazer nada em relação à busca de arquivos, tanto que tem ícones mais modernos e mostra os ícones dos arquivos também.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[rebotea]

Obrigado a todos mas simplesmente desejava baixar sem que o cliente de conta ou sejá dentro de uma Threat ele baixa se não exisitir ou for mais velho.