<%
'Создать многоуровневый каталог, вы можете создать корневую каталог, которого не существует
'Параметр: Имя каталога, которое будет создано, может быть многоуровневым
'Вернуть логическое значение, True Tecuens, False Fails
'Создание корневого каталога каталога начинается с текущего каталога
'---------------------------------------------------
FunctionCreateMultifolder (byvalcfolder)
Dimobjfso, phcreatefolder, createfolderarray, createfolder
DiMi, II, CreateFolderSub, phcreateFolderSub, blinfo
Blinfo = false
CreateFolder = cfolder
OnerRorResumenext
SetObjfso = server.createObject ("scripting.filesystemobject")
Iferrthen
Err.clear ()
Выходная функция
Эндиф
CreateFolder = replace (createFolder, "", "/")
Ifleft (createFolder, 1) = "/" Then
CreateFolder = right (createFolder, Len (CreateFolder) -1)
Эндиф
Ifright (createfolder, 1) = "/" then
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Эндиф
CreateFolderRaray = split (createFolder, "/")
Fori = 0toubound (createfolderarray)
CreateFolderSub = ""
Forii = 0toi
CreateFolderSub = createFolderSub & createFolderarRay (ii) & "/"
Следующий
Phcreatefoldersub = server.mappath (createfoldersub)
Ifnotobjfso.folderexists (phcreatefoldersub)
objfso.createfolder (phcreatefoldersub)
Эндиф
Следующий
Iferrthen
Err.clear ()
Еще
Blinfo = true
Эндиф
CreateMultiFolder = blinfo
Конечная функция
%>
'Как использовать: