The code copy is as follows:
'=========================================
'Create multi-level directory, you can create root directory that does not exist
'Parameter: The directory name to be created, can be multi-level
'Create the root directory of the directory starts from the current directory
'''Call for example
''CallCreateMultiFolder("/upload/jumbot/myphoto/")
'=========================================
FunctionCreateMultiFolder(ByValCFolder)
DimobjFSO, PhCreateFolder, CreateFolderArray, CreateFolder
Dimi, ii, CreateFolderSub, PhCreateFolderSub, BlInfo
BlInfo=False
CreateFolder=CFolder
OnErrorResumeNext
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfErrThen
Err.Clear()
ExitFunction
EndIf
IfRight(CreateFolder,1)="/"Then
CreateFolder=Left(CreateFolder,Len(CreateFolder)-1)
EndIf
CreateFolderArray=Split(CreateFolder,"/")
Fori=0ToUBound(CreateFolderArray)