Sub EFolder(FolderName)
Escurecer FSO
Definir FSO=Server.CreateObject(Scripting.FileSystemObject)
Se Fso.folderexists(Server.MapPath(FolderName)) Então
Definir FSO=Nada
Sair do sub
Outro
FSO.CreateFolder(Server.MapPath(FolderName))
Terminar se
Definir FSO=Nada
Finalizar sub
'================================================ ==================
Sub ArrayFolder (Caminho, setembro)
Dim ArrayPath,EPath,newPath
ArrayPath = divisão(Caminho,sep)
novoCaminho=
para cada Epath em ArrayPath
novoCaminho=novoCaminho&Ecaminho&/
novoCaminho = substituir(novoCaminho,//,/)
EFolder novoCaminho
próximo
Finalizar sub
ArrayFolder 1/2/3,/