코드 사본은 다음과 같습니다.
'=========================================
'다중 레벨 디렉토리 만들기, 존재하지 않는 루트 디렉토리를 만들 수 있습니다.
'매개 변수 : 생성 할 디렉토리 이름은 멀티 레벨 일 수 있습니다.
'디렉토리의 루트 디렉토리 생성 현재 디렉토리에서 시작됩니다.
'' '예를 들어 전화합니다
''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 ()
종료 기능
endif
ifright (CreateFolder, 1) = "/"그런 다음
CreateFolder = 왼쪽 (CreateFolder, Len (CreateFolder) -1)
endif
createfolderarray = split (createfolder, "/")
fori = 0toubound (createfolderarray)