Sub EFolder(FolderName) Dim FSO Set FSO=Server.CreateObject("Scripting.FileSystemObject") If Fso.folderexists(Server.MapPath(FolderName)) Then Set FSO=Nothing Exit Sub Else FSO.CreateFolder(Server.MapPath(FolderName)) End If Set FSO=Nothing End Sub '=================================================================== Sub ArrayFolder(Path,sep) Dim ArrayPath,EPath,newPath ArrayPath = split(Path,sep) newPath="" for each Epath in ArrayPath newPath=newPath&Epath&"/" newPath = replace(newPath,"//","/") EFolder newPath next End Sub
