В FSO есть метод CreateFolder, но этот метод может создать новую папку только в том случае, если существует ее папка верхнего уровня, поэтому я написал функцию, которая автоматически создает многоуровневые папки, генерирует статические страницы и т. д. Это очень удобно Использование.
Функция:
'--------------------------------
' Автоматически создавать указанные многоуровневые папки
'strPath — абсолютный путь
' Пожалуйста, сохраните авторские права на цитаты
' от im286_Anjer
'2005-4-3
Функция AutoCreateFolder(strPath) ' Как логическое значение
При ошибке возобновить следующий
Dim astrPath, ulngPath, i, strTmpPath
Dim objFSO
Если InStr(strPath, "") <=0 Или InStr(strPath, ":") <= 0 Тогда
АвтоСозданиеПапки = Ложь
Выход из функции
Конец, если
Установите objFSO = Server.CreateObject("Scripting.FileSystemObject")
Если objFSO.FolderExists(strPath) Тогда
АвтоСозданиеПапки = Истина
Выход из функции
Конец, если
astrPath = Split(strPath, "")
ulngPath = UBound(astrPath)
стрТмпПат = ""
Для i = 0 в ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
Если не objFSO.FolderExists(strTmpPath) Тогда
'Создавать
objFSO.CreateFolder(strTmpPath)
Конец, если
Следующий
Установить objFSO = Ничего
Если Err = 0 Тогда
АвтоСозданиеПапки = Истина
Еще
АвтоСозданиеПапки = Ложь
Конец, если
Конечная функция
Метод вызова:
MyPath = "C:abc"
Если AutoCreateFolder(MyPath) Тогда
Response.Write «Папка создана успешно».
Еще
Ответ. Напишите «Не удалось создать папку».
Конец, если