Mega Code Archive

 

Categories / Delphi / Examples

 

Get a files date time stamp

Use this function to get a file's date and time stamp as a string: function GetFileDate(TheFileName: string): string; var f: integer; begin f := FileOpen(TheFileName, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(f))); finally FileClose(f); end; end;