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

##############################################################################
###+--------------+###########################################################
#+-| FIND_FDATE() |-----------------------------------------+#################
#| +--------------+ Returns the date of a file or directory |#################
#+----------------------------------------------------------+#################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------+###############################
#|     FUNCTION DATE find_fdate PROTOTYPE     |###############################
#+--------------------------------------------+###############################
##############################################################################
##############################################################################
#########+---| Description |---------------------------------------+##########
#########| The find_fdate() function returns the date of a file or |##########
#########| directory located by the find_first() or find_next()    |##########
#########| functions.                                              |##########
#########+---------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Show a listing of files indexed by date.            |#########
#########|                                                          |#########
#########| DBFDEF f                                                 |#########
#########|     CHAR(14)  fname                                      |#########
#########|     DATE      fdate                                      |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| INDEXDEF                                                 |#########
#########|     DATE    i_date   find_fdate()                        |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| PROCEDURE by_date                                        |#########
#########|     OPEN "tmp.dbf" ALIAS f                               |#########
#########|     DELETE ALL                                           |#########
#########|     INDEX i_date                                         |#########
#########|     IF .NOT. find_first("*.*", 0x20)                     |#########
#########|         REPEAT                                           |#########
#########|             APPEND BLANK                                 |#########
#########|             REPLACE f->fdate WITH find_fdate()           |#########
#########|          UNTIL .NOT. find_next()                         |#########
#########|     ENDIF                                                |#########
#########|     LIST ALL                                             |#########
#########|     CLOSE                                                |#########
#########|                                                          |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################