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

 findfdate()         Return the date of a file after a file find
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func date findfdate extern

 Arguments
   None.

 Return
   The date when the file was last modified.

 Description
   The findfdate() function returns the date of a file or directory located
   by the findfirst() or findnext() functions.

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   // Show a listing of files indexed by date
   
   dbfdef sDate
      char( 14 ) fname
      date       fdate
   enddef
   
   indexdef
      date sIdxDate sDate->fdate
   enddef
   
   proc Test_findfdate
   build "sdate.dbf" from alias sDate
   open sDate
   if findfirst( "*.*", FIND_ARCHIVE )
      repeat
         append blank
         sDate->fname := findfstr()
         sDate->fdate := findfdate()
      until .not. findnext()
   endif
   set alias sIdxDate to "sdate.fdx"
   index sIdxDate
   go top
   do while .not. eof()
      ? sDate->fdate, sDate->fname
      skip
   enddo
   close all
   erase "sdate.dbf"
   erase "sdate.fdx"
   endproc

   proc main
   Test_findfdate()
   endproc