[Overview][Constants][Types][Procedures and functions][Variables][Index] | Reference for unit 'Dos' (#rtl)

# GetFTime

Get file last modification time.

## Declaration

Source position: dosh.inc line 110

`procedure GetFTime(`
`var f;`
`var time: LongInt`
`);`

## Description

GetFTime returns the modification time of a file. This time is encoded and must be decoded with UnPackTime. F must be a file type, which has been assigned, and opened.

## Errors

Errors are reported in DosError

## See also

SetFTime |  | Set file modification time.
PackTime |  | Pack DateTime value to a packed-time format.
UnPackTime |  | Unpack packed file time to a DateTime value

## Example

    Program Example9;
    uses Dos;

    { Program to demonstrate the GetFTime function. }

    Function L0(w:word):string;
    var
      s : string;
    begin
      Str(w,s);
      if w<10 then
       L0:='0'+s
      else
       L0:=s;
    end;

    var
      f    : File;
      Time : Longint;
      DT   : DateTime;
    begin
      if Paramcount>0 then
        Assign(f,ParamStr(1))
      else
        Assign(f,'ex9.pp' );
      Reset(f);
      GetFTime(f,Time);
      Close(f);
      UnPackTime(Time,DT);
      Write ('File ',ParamStr(1),' is last modified on ');
      Writeln (L0(DT.Month),'-',L0(DT.Day),'-',DT.Year,
               ' at ',L0(DT.Hour),':',L0(DT.Min));
    end.