Кода -копия выглядит следующим образом:
'==================================================================
'Создать многоуровневый каталог, вы можете создать корневую каталог, которого не существует
'Параметр: Имя каталога, которое будет создано, может быть многоуровневым
'Создание корневого каталога каталога начинается с текущего каталога
'' ', Например
'' CallcreateMultifolder ("/upload/jumbot/myphoto/")
'==================================================================
FunctionCreateMultifolder (byvalcfolder)
Dimobjfso, phcreatefolder, createfolderarray, createfolder
DiMi, II, CreateFolderSub, phcreateFolderSub, blinfo
Blinfo = false
CreateFolder = cfolder
OnerRorResumenext
SetObjfso = server.createObject ("scripting.filesystemobject")
Iferrthen
Err.clear ()
Выходная функция
Эндиф
Ifright (createfolder, 1) = "/" then
CreateFolder = Left (CreateFolder, Len (CreateFolder) -1)
Эндиф
CreateFolderRaray = split (createFolder, "/")
Fori = 0toubound (createfolderarray)