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

##############################################################################
###+---------+################################################################
#+-| RMDIR() |-------------------------------------------------+##############
#| +---------+ Attempts to remove the directory directory_name |##############
#+-------------------------------------------------------------+##############
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE fileio.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |-----------------------------------+############################
#|     FUNCTION  LOGICAL rmdir PROTOTYPE         |############################
#|      PARAMETERS CONST CHAR directory_name     |############################
#+-----------------------------------------------+############################
##############################################################################
##############################################################################
#########+---| Description |---------------------------------------+##########
#########| The rmdir() function attempts to remove the directory   |##########
#########| directory_name and returns TRUE if the attempt was      |##########
#########| successful.                                             |##########
#########| ------------------------------------------------------- |##########
#########| The directory directory_name must be empty.  If a full  |##########
#########| path is specified, only the child directory is removed, |##########
#########| not the parent.                                         |##########
#########+---------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Remove a directory "subdir". The directories        |#########
#########| *    "parent1" and "parent2" are not removed.            |#########
#########|                                                          |#########
#########| IF .NOT. rmdir( "\parent1\parent2\subdir" )              |#########
#########|     {...}                                                |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Remove a directory used for temporary files.        |#########
#########|                                                          |#########
#########| IF chdir( "\data\tmpdir" )                               |#########
#########|     IF .NOT. find_first( "*.*", 0x20 )                   |#########
#########|         RETURN                                           |#########
#########|     ENDIF                                                |#########
#########|     REPEAT                                               |#########
#########|         ERASE find_fstr()                                |#########
#########|     UNTIL .NOT. find_next()                              |#########
#########|     IF .NOT. rmdir( "\data\tmpdir" )                     |#########
#########|         ? "Directory contains hidden files."             |#########
#########|     ENDIF                                                |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################