Subcarpeta electrónica (nombre de carpeta)
FSO tenue
Establecer FSO=Server.CreateObject(Scripting.FileSystemObject)
Si Fso.folderexists (Server.MapPath (FolderName)) Entonces
Establecer FSO = Nada
Salir Sub
Demás
FSO.CreateFolder(Servidor.MapPath(NombreCarpeta))
Terminar si
Establecer FSO = Nada
Subtítulo final
'=================================================== ===================
Carpeta de submatriz (ruta, septiembre)
Dim ArrayPath,EPath,newPath
ArrayPath = dividir(Ruta,sep)
nuevaRuta=
para cada Epath en ArrayPath
nuevaRuta=nuevaRuta&Eruta&/
nuevaRuta = reemplazar(nuevaRuta,//,/)
Carpeta electrónica nueva ruta
próximo
Subtítulo final
Carpeta de matriz 1/2/3,/