Click above to get retro games delivered to your door ever month!

 findftime()         Return the time stamp of a file after a file find
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func char findftime extern

 Arguments
   None.

 Return
   The time as a string when the file was last modified.

 Description
   The findftime() returns a file or directories creation time as character
   string. The file must first be located using the findfirst() or findnext()
   functions.

   The time character string is returned in the format HH:MM:SS. HH is in 24
   hour format.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   proc Test_findftime
   vardef
      char cData
   enddef
   ? "File name      time"
   if findfirst( curdir( 0 ) + "\*.*", FIND_ARCHIVE )
      repeat
         cData := padr( findfstr(), 15, ' ' ) + findftime()
         ? cData
      until .not. findnext()
   endif
   endproc

   proc main
   Test_findftime()
   endproc