잘못된 새 웹 마스터 웹 사이트를 테스트 할 때 정상적으로 사용할 수있는 코드를 공유하겠습니다.
코드 1
기능 Createmultifolder (Byval Cfolder) Dim Objfso, phcreatefolder, createfolderarray, createfolder dim i, ii, createfoldersub, phcreatefoldersub, blinfo blinfo = false reatefolder = 오류에 대한 cfolder on eurn objfso = server.createobject ( "scripting.filesystemobject" 오른쪽이면 (CreateFolder, 1) = "/"이면 revit function 종료 된 다음 createFolder = left (createFolder, len (createFolder) -1) If CreateFolderArray = split (createFolder, "/")를 ubound (createFolderArray) (CreateFolderUb =)에 for reatefoldersub & "0 to i). 다음 phcreatefoldersub = server.mappath (createfoldersub) objfso.dolerexists (phcreatefoldersub)가 아닌 경우 objfso.createfolder (phcreatefoldersub)가 다음 경우 err. err. err.cremear () else blinfo = true end if createmultifolder = blinfo end function
사용 방법 :
Createmultifolder ( "/202003/Tools/")
코드 2, 테스트 확인
'자동으로 Multipole Directory'code by JB51 ReterryFunction CreateIt (Path) Dim Fsofo, Cinfo, ThePatharrayDim I, II, BinfoBinfo = falsethepath = pathset fsofo = createObject ( "scripting.filesystemoBject"). 왼쪽 (thepath, 1) = "/"thepath = right (thepath, len (thepath) -1) end ifif right (thepath, 1) = "/"thenthepath = left (thepath, len (thepath) -1) end ifthepatharray = split ( "/")는 i = 0입니다 Ubund (ThePatharray) CreateFoldersUb1 = CreateFoldersUb1 & thePathArray (i) & "/"CreateFoldersUb = server.Mappath (createFoldersUb1) fsofo.DODEREXISTS (CreateEfoldersUB)가 아닌 경우 thefsofo.createFolder (CreateFoldersUb) END IFNEXTIF ERRER.PRYERRER.PYNERERTER.PLARELSE ERRER ifcreateit = binfoend 함수
테스트 코드
CreateIt ( "/202004/Tools/")
위의 코드를 실행할 수없는 경우 IIS 실행 사용자의 권한에 쓰기 기능이 있는지 확인하십시오. 오늘 테스트하는 동안 기본 IIS7.5를 실행할 수 없습니다.
다음 구현 코드는 간단하고 학습에 적합합니다.
폴더가 존재하는지 여부를 감지하는 방법은 무엇입니까? 존재하지 않으면 폴더 = server.mappath ( "/imagess") set fso = createobject ( "scripting.filesystemobject")를 자동으로 생성합니다. objfso = server.createobject ( "scripting.filesystemobject") if objfso.dolerexists (server.mappath (savepath)) = false whenobjfso.createfolder (server.mappath (savepath)) end ifffolder = server.mappath ( "/thegess") spriptture ( "scripting.filesystembject") fso.fileExists (Server.Mappath (FilePath)) theRespnse.write ( "결국 구축 할 수있는 것") elsefso.createfolder (폴더) 종료 ifset fso = 아무것도