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

##############################################################################
###+---------+################################################################
#+-| MKDIR() |-----------------------------------------------------------+####
#| +---------+ Attempts to make a subdirectory - Returns TRUE if it does |####
#+-----------------------------------------------------------------------+####
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |-----------------------------------+############################
#|     FUNCTION LOGICAL mkdir PROTOTYPE          |############################
#|      PARAMETERS CONST CHAR directory_name     |############################
#+-----------------------------------------------+############################
##############################################################################
##############################################################################
###########+---| Description |-----------------------------------+############
###########| This function attempts to make the subdirectory     |############
###########| directory_name and returns TRUE if the directory    |############
###########| is created.                                         |############
###########| --------------------------------------------------- |############
###########| If a full path is specified for directory_name, all |############
###########| parent directories must exist and only the child    |############
###########| directory is created by mkdir().  To make a "full   |############
###########| path", e.g., "\dir1\dir2\dir3", each subdirectory   |############
###########| must be made separately.                            |############
###########+-----------------------------------------------------+############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Make a new directory from the current directory.    |#########
#########|                                                          |#########
#########| If mkdir( "data" )                                       |#########
#########|     DO fill_dir                                          |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    If a full path is specified, the parent             |#########
#########| *    directories must exist.                             |#########
#########|                                                          |#########
#########| IF .NOT. mkdir( "C:\video\data\backup" )                 |#########
#########|     ? "Unable to make directory..."                      |#########
#########| ENDIF                                                    |#########
#########| {...}                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 3 |-------------------------------------------+#########
#########| *    To make a full path, split the                      |#########
#########| *    directory into "parts".                             |#########
#########|                                                          |#########
#########| VARDEF                                                   |#########
#########|     CHAR     the_dir                                     |#########
#########|     BYTE     b[80] BASED the_dir                         |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########| {...}                                                    |#########
#########| the_dir = "\abc\def\ghi"                                 |#########
#########|                                                          |#########
#########| REPEAT                                                   |#########
#########|     IF d[i] = '\'                                        |#########
#########|         d[i] = 0            && NULL out the "\"          |#########
#########|                             &&  for awhile               |#########
#########|                                                          |#########
#########|         IF .NOT. find_first( the_dir, 0x10 )             |#########
#########|             IF .NOT. mkdir( the_dir )                    |#########
#########|                 RETURN .F.                               |#########
#########|             ENDIF                                        |#########
#########|         ENDIF                                            |#########
#########|         d[i] = '\'          && RESTORE our "\"           |#########
#########|     ENDIF                                                |#########
#########|     i = i + 1                                            |#########
#########| UNTIL b[i] = 0                                           |#########
#########+----------------------------------------------------------+#########
##############################################################################