La copia del código es la siguiente:
'==========================================
'Crear directorio multinivel, puede crear directorio raíz que no existe
'Parámetro: el nombre del directorio que se creará puede ser multinivel
'Crear el directorio raíz del directorio comienza desde el directorio actual
'' 'Llame por ejemplo
'' CallCreateMultifolder ("/upload/jumbot/myphoto/")
'==========================================
FunctreCreateMultifolder (byvalcolder)
Dimobjfso, PhCreateFolder, CreateFolderArray, CreateFolder
Dimi, II, CreateFolderSub, PhCreateFolderSub, Blinfo
Blinfo = falso
CreateFolder = cfolder
OnerrorResumEnext
Setobjfso = server.createObject ("scripting.filesystemObject")
Iferrthen
Err.Clear ()
Extinción
Endif
Ifright (createFolder, 1) = "/" entonces
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endif
CreateFolderArray = Split (CreateFolder, "/")
Fori = 0toUbound (createFolderArray)