<%
'Crear directorio multinivel, puede crear directorio raíz que no existe
'Parámetro: el nombre del directorio que se creará puede ser multinivel
'Devolver el valor lógico, verdadero tiene éxito, falso falla
'Crear el directorio raíz del directorio comienza desde el directorio actual
'---------------------------------------------------
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
CreateFolder = reemplazar (CreateFolder, "", "/")
Ifleft (createFolder, 1) = "/" entonces
CreateFolder = Right (CreateFolder, Len (CreateFolder) -1)
Endif
Ifright (createFolder, 1) = "/" entonces
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Endif
CreateFolderArray = Split (CreateFolder, "/")
Fori = 0toUbound (createFolderArray)
CreateFolderSub = ""
Forii = 0toi
CreateFolderSub = CreateFolderSub & CreateFolderArray (ii) & "/"
Próximo
PhCreateFolderSub = Server.Mappath (CreateFolderSub)
Ifnotobjfso.foldereRexists (PhCreateFolderSub) entonces
objfso.createfolder (PhCreateFolderSub)
Endif
Próximo
Iferrthen
Err.Clear ()
Demás
Blinfo = verdadero
Endif
Createmultifolder = blinfo
Función final
%>
'Cómo usar: