'###########################################################################
' Small subroutine to create multiple Folder and subfolder.
' Here is better, use it, or whatever you want
' excuse my bad English
'###########################################################################
' Pequeña SubRutina para crear Folder y multiples subfolder .
' Aqui es mejorarlo , usarlo , o lo que quieras
'###########################################################################
' "CrearSubFolder.bas"
#COMPILER PBWIN 9 "CrearSubFolder.exe"
#DIM ALL
' Limitation to use only slash \
'$Via_Path = "C:\temp\Temp2\Temp3\Temp4\Temp5\" ' <- only slash -> '\'
SUB Create_multi_folders (BYVAL Via_Path AS STRING)EXPORT
LOCAL DRIVE ,FOLDER, MasFolder, a AS STRING
LOCAL y,x AS LONG
''''''''''''''''''''''''''''''''''''''''''''''''
'syntax:
' Path_Target = "C:\temp\Temp2\Temp3\Temp4\Temp5\"
''''''''''''''''''''''''''''''''''''''''''''''''
A = RIGHT$(Via_Path,1)
IF A<>"\" THEN MSGBOX "please add slash at the"+$CRLF+_
" end of the Via_Path \",64,"Function->"+FUNCNAME$ :EXIT SUB
x= TALLY (Via_Path , ANY "\")
IF x>1 THEN 'presume there is a subdirectory or more
FOR y = 1 TO x
drive= PARSE$(Via_Path,ANY "\",1)+"\"
folder = PARSE$(Via_Path,ANY "\",y+1)
masfolder = masfolder+"\"+Folder
IF folder<>"" THEN MKDIR drive+masfolder
FILECOPY "crearsubfolder.bas", masfolder+"crearsubfolder.bas" '<--AutoCopy
NEXT
END IF
END SUB
FUNCTION PBMAIN () AS LONG
LOCAL Via_Path AS STRING
Via_Path = "C:\temp\Temp2\Temp3\Temp4\Temp5\"
Create_multi_folders Via_Path
MSGBOX "Folder and file were created",64,"Function->"+FUNCNAME$
END FUNCTION
' Small subroutine to create multiple Folder and subfolder.
' Here is better, use it, or whatever you want
' excuse my bad English
'###########################################################################
' Pequeña SubRutina para crear Folder y multiples subfolder .
' Aqui es mejorarlo , usarlo , o lo que quieras
'###########################################################################
' "CrearSubFolder.bas"
#COMPILER PBWIN 9 "CrearSubFolder.exe"
#DIM ALL
' Limitation to use only slash \
'$Via_Path = "C:\temp\Temp2\Temp3\Temp4\Temp5\" ' <- only slash -> '\'
SUB Create_multi_folders (BYVAL Via_Path AS STRING)EXPORT
LOCAL DRIVE ,FOLDER, MasFolder, a AS STRING
LOCAL y,x AS LONG
''''''''''''''''''''''''''''''''''''''''''''''''
'syntax:
' Path_Target = "C:\temp\Temp2\Temp3\Temp4\Temp5\"
''''''''''''''''''''''''''''''''''''''''''''''''
A = RIGHT$(Via_Path,1)
IF A<>"\" THEN MSGBOX "please add slash at the"+$CRLF+_
" end of the Via_Path \",64,"Function->"+FUNCNAME$ :EXIT SUB
x= TALLY (Via_Path , ANY "\")
IF x>1 THEN 'presume there is a subdirectory or more
FOR y = 1 TO x
drive= PARSE$(Via_Path,ANY "\",1)+"\"
folder = PARSE$(Via_Path,ANY "\",y+1)
masfolder = masfolder+"\"+Folder
IF folder<>"" THEN MKDIR drive+masfolder
FILECOPY "crearsubfolder.bas", masfolder+"crearsubfolder.bas" '<--AutoCopy
NEXT
END IF
END SUB
FUNCTION PBMAIN () AS LONG
LOCAL Via_Path AS STRING
Via_Path = "C:\temp\Temp2\Temp3\Temp4\Temp5\"
Create_multi_folders Via_Path
MSGBOX "Folder and file were created",64,"Function->"+FUNCNAME$
END FUNCTION