<%
'다중 레벨 디렉토리 만들기, 존재하지 않는 루트 디렉토리를 만들 수 있습니다.
'매개 변수 : 생성 할 디렉토리 이름은 멀티 레벨 일 수 있습니다.
'논리적 값을 반환, 참된 성공, 거짓 실패
'디렉토리의 루트 디렉토리 생성 현재 디렉토리에서 시작됩니다.
'--------------------------------------------------------------
functioncreatemultifolder (byvalcfolder)
Dimobjfso, PhcreateFolder, CreateFolderarray, CreateFolder
Dimi, II, CreateFoldersub, PhcreateFoldersub, Blinfo
blinfo = false
CreateFolder = CFolder
onerrorresumenext
setobjfso = server.createobject ( "scripting.filesystemobject")
iferrthen
err.clear ()
종료 기능
endif
CreateFolder = Replace (CreateFolder, "", "/")
ifleft (CreateFolder, 1) = "/"그런 다음
CreateFolder = Right (CreateFolder, Len (CreateFolder) -1)
endif
ifright (CreateFolder, 1) = "/"그런 다음
CreateFolder = 왼쪽 (CreateFolder, Len (CreateFolder) -1)
endif
createfolderarray = split (createfolder, "/")
fori = 0toubound (createfolderarray)
CreateFoldersub = ""
forii = 0toi
CreateEfoldersub = CreateFoldersUb & CreateFolderArray (II) & "/"
다음
phcreatefoldersub = server.mappath (createfoldersub)
ifnotobjfso.dolerexists (phcreatefoldersub)
objfso.createfolder (phcreatefoldersub)
endif
다음
iferrthen
err.clear ()
또 다른
blinfo = true
endif
createmultifolder = blinfo
최종 기능 장애
%>
'사용 방법 :