Comparar datas entre arquivos

Question

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 �ltim...

Zumbi · Answer

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...

Omar Cury · Answer

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

Clodoaldo01 · Answer

Caro colega ZUMBIAgrade�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....

Zumbi · Answer

tenta o seguinte:[code:1:094f1e09d6]var TheFileDate: string; Fhandle: integer; begin FHandle := FileOpen(YourFileName, 0); try TheFileDate := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end; [/code:1:094f1e09d6]qualquer coisa estamos ai.....

Clodoaldo01 · Answer

Caro colega ZUMBI.Muito obrigado. Desta vez deu tudo certo.Espero poder te ajudar em algum momento.Grato,Clodoaldo...

F�rum Comparar datas entre arquivos #217663