Дополнительная папка EFolder (имя папки)
Дим ФСО
Установите FSO=Server.CreateObject(Scripting.FileSystemObject)
Если Fso.folderexists(Server.MapPath(FolderName)) Тогда
Установить FSO=Ничего
Выход из подменю
Еще
FSO.CreateFolder(Server.MapPath(ИмяПапки))
Конец, если
Установить FSO=Ничего
Конец субтитра
'============================================== ==================
Sub ArrayFolder (Путь, сентябрь)
Тусклый ArrayPath,EPath,newPath
ArrayPath = разделение (Путь, сентябрь)
новыйПуть=
для каждого Epath в ArrayPath
новыйПуть=новыйПуть&Епуть&/
новыйПуть = заменить(новыйПуть,//,/)
Eфолдер новый путь
следующий
Конец субтитра
МассивПапка 1/2/3,/