<％
「マルチレベルのディレクトリを作成すると、存在しないルートディレクトリを作成できます
'パラメーター：作成されるディレクトリ名はマルチレベルになります
'論理値を返し、真の成功し、誤った失敗に失敗します
'ディレクトリのルートディレクトリを作成して、現在のディレクトリから開始します
'----------------------------------------------------------------------
functionCreateMultifolder（byvalcfolder）
dimobjfso、phcreatefolder、CreateFolderArray、CreateFolder
Dimi、II、CreateFolderSub、PhcreatefolderSub、Blinfo
blinfo = false
createfolder = cfolder
onerrorresumenext
setobjfso = server.createObject（ "Scripting.filesystemObject"）
iferrthen
err.clear（）
exitFunction
endif
createfolder = cheplage（createfolder、 ""、 "/"）
ifleft（createfolder、1）= "/" then
createfolder = right（createfolder、len（createfolder）-1）
endif
ifright（createfolder、1）= "/" then
createfolder = left（createfolder、len（createfolder）-1）
endif
createfolderArray = split（createfolder、 "/"）
fori = 0toubound（createfolderArray）
createfoldersub = ""
forii = 0toi
CreateFolderSub = createFolderSub＆CreateFolderArray（ii）＆ "/"
次
phcreatefoldersub = server.mappath（createfoldersub）
ifnotobjfso.folderexists（phcreatefoldersub）
objfso.createfolder（phcreatefoldersub）
endif
次
iferrthen
err.clear（）
それ以外
blinfo = true
endif
createmultifolder = blinfo
エンド機能
％>
'使い方：