A cópia do código é a seguinte:
'==========================================
'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
'Crie o diretório raiz do diretório começa no diretório atual
'' 'Chamada, por exemplo
'' 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 ()
Saída de saída
Endif
Seright (createfolder, 1) = "/" então
Createfolder = esquerda (createfolder, len (createfolder) -1)
Endif
CreatefolderArray = split (createfolder, "/")
Fori = 0Toubound (createfolderArray)