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

##############################################################################
###+-------------+############################################################
#+-| FIND_FSTR() |-----------------------------------------------------+######
#| +-------------+ Returns the filename, directory name or disk volume |######
#+---------------------------------------------------------------------+######
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     FUNCTION CHAR find_fstr PROTOTYPE     |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
#########+---| Description |-----------------------------------------+########
#########| Returns the filename, directory name or the disk volume   |########
#########| label found by the find_first() or find_next() functions. |########
#########| --------------------------------------------------------- |########
#########| The filename or directory name returned does not include  |########
#########| the full path or any drive id.                            |########
#########+-----------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Print the names of all hidden files in the          |#########
#########| *    root directory.                                     |#########
#########|                                                          |#########
#########| IF .NOT. find_first( "*.*", 0x2 )                        |#########
#########|     RETURN                                               |#########
#########| ENDIF                                                    |#########
#########|                                                          |#########
#########| REPEAT                                                   |#########
#########|     ? "Hidden file is : "+find_fstr()                    |#########
#########| UNTIL .NOT. find_next()                                  |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Copy all .dbf files to a floppy drive.              |#########
#########|                                                          |#########
#########| IF find_first( "*.dbf" , 0x20 )                          |#########
#########|     REPEAT                                               |#########
#########|         COPY find_fstr() TO "a:\"+find_fstr()            |#########
#########|     UNTIL .NOT. find_next()                              |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################