Fórum Como pegar a data de um arquivo mesmo estando em uso ? #230515
06/05/2004
0
Estou fazendo uma rotina de atualizacao de executaveis, e preciso comparar as datas do arq. origem e destino... porem não consigo compara-lo qdo o arquivo esta em uso...
Caso alguem saiba solucinar esse problema me dê um toque
Valew
Omar Cury
Curtir tópico
+ 0Posts
07/05/2004
Aroldo Zanela
Coloca um fragmento do código para avaliarmos melhor.
Gostei + 0
07/05/2004
Omar Cury
function TfrmAtualiza.PegarData(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Qdo o arquivo ORIGEM esta em uso, o FHandle recebe -1 e trava no Result.
Valew
Gostei + 0
07/05/2004
Emerson Nascimento
function TfrmAtualiza.PegarData(Arquivo: String): String;
begin
Result := DateTimeToStr(FileDateToDateTime(FileAge(Arquivo)));
end;
Gostei + 0
07/05/2004
Omar Cury
Obrigado pela dica e estamos ae !!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)