File date...

[Aljosa]

Hi,

It is possible to check file's creation date not only Change/Modify date.

Thanks

 

[towerbase]

Is this a question?

Yes, it is possible to find a file's creation date/time, last write date/time and last access date/time.

Something like this should work:

function FormatFileTime(const mask: string; FileTime: TFileTime): string;
var
  ModifiedTime: TFileTime;
  SystemTime: TSystemTime;
begin
  Result := '';
  if (FileTime.dwLowDateTime = 0) and (FileTime.dwHighDateTime = 0) then
    Exit;
  try
    FileTimeToLocalFileTime(FileTime, ModifiedTime);
    FileTimeToSystemTime(ModifiedTime, SystemTime);
    Result := FormatDateTime( mask, SystemTimeToDateTime(SystemTime) );
  except
    Result := FormatDateTime( mask, Now );  // Something to return in case of error
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Mask = 'yyyy-mm-dd hh-nn-ss';
var
  lpFindFileData: TWIN32FindData;
begin
  FindFirstFile( pchar('c:\test.txt'), lpFindFileData );
  Edit1.Text := FormatFileTime( mask, lpFindFileData.ftCreationTime );
  Edit2.Text := FormatFileTime( mask, lpFindFileData.ftLastAccessTime );
  Edit3.Text := FormatFileTime( mask, lpFindFileData.ftLastWriteTime );
end;

Andrew
Hampshire, UK

 

[towerbase]

I should have mentioned that the above was adapted from some code, credited to Winston Kotzan, that I found on Torry's.

http://www.swissdelphicenter.ch/torry/showcode.php?id=671

Andrew
Hampshire, UK