Saber DATA de um ARQUIVO------

Delphi

17/03/2003

Ola pessoal, como eu faço para saber a DATA de um arquivo?????



obrigado...


Tsilva

Tsilva

Curtidas 0

Respostas

Josebarbosa_jr

Josebarbosa_jr

17/03/2003

Ola pessoal, como eu faço para saber a DATA de um arquivo????? obrigado...



Bem isso consegui fazendo algumas pesquisas na internet..
Não é muito difícil:

function TArquivo.GetFileDate(path: string): String;
var
FHandle: integer;
begin
FHandle := FileOpen(path, 0);
try
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
except
raise Exception.Create(´Não foi possível validar a data e hora do arquivo´);
end;
finally
FileClose(FHandle);
end;
end;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

17/03/2003

Ola pessoal, como eu faço para saber a DATA de um arquivo????? obrigado...


Exemplo:

  ShoWMessage(DateToStr(FileDateToDateTime(FileAge(´C:\AUTOEXEC.BAT´))));



GOSTEI 0
POSTAR