Sub EFolder(FolderName)
Schwaches FSO
Legen Sie FSO=Server.CreateObject(Scripting.FileSystemObject) fest.
Wenn Fso.folderexists(Server.MapPath(FolderName)) dann
Setzen Sie FSO=Nichts
Unter verlassen
Anders
FSO.CreateFolder(Server.MapPath(FolderName))
Ende wenn
Setzen Sie FSO=Nichts
Sub beenden
'============================================== ==================
Sub ArrayFolder(Path,sep)
Dimmen Sie ArrayPath,EPath,newPath
ArrayPath = split(Path,sep)
newPath=
für jeden Epath in ArrayPath
newPath=newPath&Epath&/
newPath = replace(newPath,//,/)
EOrdner newPath
nächste
Sub beenden
ArrayOrdner 1/2/3,/