Как определить, существует ли папка или нет, она будет автоматически создана.

Я поделюсь с вами кодом, который можно использовать обычно при тестировании неправильного веб-сайта Webmaster, и он поддерживает создание многоуровневого каталога

Код 1

 Функция CreateMultiFolder (Byval Cfolder) Dim objfso, PhcreateFolder, CreateFolderRary, CreateFolder Dim I, II, CreateFolderSub, phcreateFolderSub, blinfo blinfo = false createfolder = cfolder on resume stexte objfso = server.createobject ("scripting.stemple. Err.clear () функция выхода конец, если если право (createfolder, 1) = "/" then createfolder = left (createfolder, len (createfolder) -1) end if createfolderarray = split (createfolder "/") для i = 0 CreateFolderRaray (ii) & "/" Next phcreateFolderSub = server.mappath (createFolderSUB), если не objfso.folderexists (phcreatefoldersub), то objfso.createfolder (phcreatefoldersubUbubub) end, если Err.clear () else blinfo = true end end end enderliflif endlifolfold endfor end end end end end end end end end endfolfold end endfulfold

Как использовать:

CreateMultiFolder ("/202003/Tools/")

Код 2, тест ОК

 'Automatically create multipole directory'code by jb51 reterryfunction createit(path)dim fsofo,cinfo,thepatharraydim i,ii,binfobinfo=falsethepath=pathset fsofo=createobject("scripting.filesystemobject")if err thenerr.clearexit functionend ifthepath=replace(thepath,"/","/")if влево (ThePath, 1) = "/" thePath = right (thepath, len (thepath) -1) конец правого (thepath, 1) = "/" thenthepath = слева (Thepath, Len (Thepath) -1) end ifThePatharray = split (thepath, "/") для i = 0 Ubund (thePatharray) createFolderSub1 = createFolderSUB1 & thePatharray (i) & "/" createFolderSub = server.mappath (createFolderSub1), если не fsofo.folderexist ifcreateit = binfoend function

Тестовый код

createit ("/202004/tools/")

Если приведенный выше код не может быть запущен, пожалуйста, проверьте, есть ли разрешения пользователя IIS -выпуска функция записи. Во время тестирования сегодня по умолчанию IIS7.5 не может быть запущен.

Следующий код реализации прост и подходит для обучения

 Как определить, существует ли папка? Если его не существует, он автоматически создаст folder = server.mappath ("/images") set fso = createObject ("scripting.filesystemobject"), если fso.fileexists (server.mappath (filePath)) thenRespnse.write ("что еще может быть построено после всех") elsefso.createfolder (скид. objfsoset objfso = server.createObject ("scripting.filesystemobject"), если objfso.folderexists (server.mappath (savepath)) = false thenobjfso.createfolder (server.mappath (savepath)) end itfflorer = server.mappath ("/imagess") set fso = fso = fso = fso = fso = fso = fso = fso = fso = fso = set veso = vso = veso = set veso = fso = set "))). CreateObject ("scripting.filesystemobject"), если fso.fileexists (server.mappath (filepath)) then respnse.write ("Что еще можно построить" в конце