<%
'Crie diretório de vários níveis, você pode criar diretório raiz que não existe
'Parâmetro: o nome do diretório a ser criado, pode ser multinível
'Retornar o valor lógico, o verdadeiro é bem -sucedido, o false falha
'Crie o diretório raiz do diretório começa no diretório atual
'---------------------------------------------------
Functioncreatemultifolder (byvalcfolder)
Dimobjfso, PhCreateFolder, CreateFolderArray, CreateFolder
Dimi, II, CreateFoldersub, PhCreateFoldersub, Blinfo
Blinfo = false
Createfolder = cFolder
OnErrorReSumenext
Setobjfso = server.createObject ("scripting.filesystemoBject")
IferrThen
Err.clear ()
Saída de saída
Endif
Createfolder = reply (createfolder, "", "/")
Ifleft (createfolder, 1) = "/" então
CreateFolder = Right (CreateFolder, Len (CreateFolder) -1)
Endif
Seright (createfolder, 1) = "/" então
Createfolder = esquerda (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.Poldexists (phcreateFoldersub) então
objfso.createfolder (phcreatefoldersub)
Endif
Próximo
IferrThen
Err.clear ()
Outro
Blinfo = true
Endif
CreateMultifolder = Blinfo
Função final
%>
'Como usar: