!**************************************
    ! Name: Retrive File Modification Date/T
    !     ime
    ! Description:Returns the date/time stam
    !     p of a file. The returned value is an in
    !     teger number; it has to be converted to 
    !     Delphi's TDateTime format (a floating po
    !     int number) before you can use it. You c
    !     an use the following code to test the fu
    !     nctions involved.
    ! By: Orlando Juriq
    !
    !This code is copyrighted and has    ! limited warranties.Please see http://w
    !     ww.Planet-Source-Code.com/vb/scripts/Sho
    !     wCode.asp?txtCodeId=1287&lngWId;=7    !for details.    !**************************************
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    File_Name: string;
    DateTimeStamp: integer;
    Date_Time: TDateTime;
    begin
    File_Name := 'c:\mydocuments\test.doc';
    DateTimeStamp := FileAge(File_Name);
    // FileAge returns -1 if file not found
    if DateTimeStamp < 0 then
    ShowMessage('File not found')
    else begin
    // Convert to TDateTime format
    Date_Time := FileDateToDateTime(DateTimeStamp);
    Label1.Caption := DateToStr(Date_Time);
    Label2.Caption := TimeToStr(Date_Time);
    end;
    end;