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

##############################################################################
###+--------------+###########################################################
#+-| FIND_FTIME() |-------------------------------+###########################
#| +--------------+ Returns a file or directories |###########################
#|                  creation time as a character  |###########################
#+------------------------------------------------+###########################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------+###############################
#|     FUNCTION CHAR find_ftime PROTOTYPE     |###############################
#+--------------------------------------------+###############################
##############################################################################
##############################################################################
#########+---| Description |----------------------------------------+#########
#########| The find_ftime() returns a file or directories creation  |#########
#########| time as a character string.  The file must first be      |#########
#########| located using the find_first() or find_next() functions. |#########
#########| -------------------------------------------------------- |#########
#########| The time character string is returned in the format      |#########
#########| HH:MM:SS.  HH is in 24 hour format.                      |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Get a listing of files that need to be updated.     |#########
#########|                                                          |#########
#########| #include system.hdr                                      |#########
#########|                                                          |#########
#########| PROCEDURE update_list                                    |#########
#########|  PARAMETERS CONST CHAR listnames, INT start_hour         |#########
#########|                                                          |#########
#########|     IF find_first( listnames, &FIND_ARCHIVE )            |#########
#########|          REPEAT                                          |#########
#########|              IF val( substr( find_ftime(),1,2 )) ;       |#########
#########|                > start_hour                              |#########
#########|              ENDIF                                       |#########
#########|          UNTIL .NOT. find_next()                         |#########
#########|     ENDIF                                                |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Compare two files' directory times to see if        |#########
#########| *    they are the same file.                             |#########
#########|                                                          |#########
#########| IF find_first( "A:"+fname, 0x20 )                        |#########
#########|     t1 = find_ftime()                                    |#########
#########|     IF find_next ( "C:"+fname, 0x20 )                    |#########
#########|         RETURN t1 = find_ftime()                         |#########
#########|     ENDIF                                                |#########
#########| ENDIF                                                    |#########
#########| RETURN .F.                                               |#########
#########+----------------------------------------------------------+#########
##############################################################################