To get a file's date and time stamp  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 27/06/99

Tip accessed 549 times

 


With this function, by example:


   function GetFileDate(TheFileName: string): string;
    var
      FHandle: integer;
    begin
      FHandle := FileOpen(TheFileName, 0);
      try
        Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
      finally
        FileClose(FHandle);
      end;
    end;



A call example:


 	Label1.Caption:=GetFileDate('c:\windows\notepad.exe');