Comparar datas entre arquivos

Delphi

02/03/2004

Galera,

Preciso de uma rotina para executar tal atividade:

Enquanto um processo de cópia de arquivos de uma pasta para outra este somente copie arquivos que contenham a sua data/hora diferentes da última atualização.

Grato,
Clodoaldo


Clodoaldo01

Clodoaldo01

Curtidas 0

Respostas

Zumbi

Zumbi

02/03/2004

para vc pegar a data de um arquivo use o seguinte codigo:

var
DataArq, DataArq2: TDateFile;
begin
DataArq:= FileDateToDateTime(FileAge(´NomeDoArquivo´));
DataArq2:= FileDateToDateTime(FileAge(´NomeDoArquivo2´));

if dataarq > dataarq2 then
<copia>

end;

flw qualquer coisa estamos ai...


GOSTEI 0
Omar Cury

Omar Cury

02/03/2004

eu desenvolvi faz pouco tempo uma rotina identica a que vc quer...
passe seu email que te mando os fontes...


GOSTEI 0
Clodoaldo01

Clodoaldo01

02/03/2004

Caro colega ZUMBI

Agradeço a ajuda, porém tenho outro problema. Quando compilo o mesmo acusa erro em TDateFile. Li a respeito e o máximo que consegui foi detectar a ausência de uma unit. No texto em que li relatava o uso da unit SysUtils, porém o problema continua a persistir.

Grato novamente.


GOSTEI 0
Zumbi

Zumbi

02/03/2004

tenta o seguinte:

var 
TheFileDate: string; 
Fhandle: integer; 
begin 
FHandle := FileOpen(YourFileName, 0); 
try 
TheFileDate := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); 
finally 
FileClose(FHandle); 
end; 
end;


qualquer coisa estamos ai..


GOSTEI 0
Clodoaldo01

Clodoaldo01

02/03/2004

Caro colega ZUMBI.


Muito obrigado. Desta vez deu tudo certo.

Espero poder te ajudar em algum momento.

Grato,
Clodoaldo


GOSTEI 0
POSTAR