Data/Hora de Arquivo movimentado..

Delphi

07/08/2006

Dei uma olhada no forum e não achei nada q me ajudasse..
eu preciso saber a Data e a Hora do arquivo q foi movido pra uma pasta..

por exemplo...

arquivo : teste.txt foi criado 10/05/2003 10:05:32

e foi movido para a pasta D:\tmp dia 30/05/2003 09:12:11

se eu usar o 
FileDateToDateTime(FileGetDate(wHandleArq))


ele me tras a data de criação ou modificação...

alguem sabe como eu pego essa data de movimentação??? nem sei c é assim q se fala...

resumindo: a data q o arquivo foi movido para a pasta..

abraços..


Alansvieceli

Alansvieceli

Curtidas 0

Respostas

Alansvieceli

Alansvieceli

07/08/2006

sobe...


GOSTEI 0
Siam

Siam

07/08/2006

Existe a função GetFileTime que retorna as tres datas


GOSTEI 0
Alansvieceli

Alansvieceli

07/08/2006

Pra quem quiser uma solução...
eu testei e funciona bem legal....

function DataDeCriacao(Arq: string): TDateTime;
var
  ffd: TWin32FindData;
  dft: DWORD;
  lft: TFileTime;
  h: THandle;
begin
  h := Windows.FindFirstFile(PChar(Arq), ffd);
  try
    if (INVALID_HANDLE_VALUE <> h) then begin
      FileTimeToLocalFileTime(ffd.ftCreationTime, lft);
      FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
      Result := FileDateToDateTime(dft);
    end;
  finally
    Windows.FindClose(h);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TDateTime;
begin
  Data := DataDeCriacao(´C:\Arquivo.XXX´);
  ShowMessage(DateTimeToStr(Data));
end;



GOSTEI 0
POSTAR