最初に、ディレクトリが既に存在するかどうかを確認します。それが存在する場合、処理は行われず、存在しない場合は作成されます。
迅速に開発することが役立つことを願っています。
checkfolder.asp
<％
'*******************************************************************************************
著者：zhao min [email protected]
'ページ名：createfolder.asp
'ページ関数：Nレベルのディレクトリのフォルダーを生成します
'使用方法：checkfolder（）関数を呼び出します。例：checkfolder（path）
'通過：アップロードするファイルの相対パス、たとえば：path = ./upload/bbb/ccc/ddd
'欠点：パラメーターパスにアップロードフォルダーを表示する必要があります
'*******************************************************************************************
サブチェックフォルダー（パス）
スプリットパス（パス）
End Sub
サブスプリットパス（パス）
薄暗い道路の物理的な道
road = server.mappath（./ upload）
Dim Curroad '現在のパス
road = split（road、/、-1,1）
curroad = road（ubound（road））
DIMフォルダー、FSO
fso = server.createObject（scripting.filesystemObject）を設定します
folder = split（path、/、-1,1）
i = 0からubound（フォルダー）ステップ1の場合
フォルダー（i）= curroad thenの場合
j = i
の出口
ifを終了します
次
i = j + 1
i <= ubound（folder）の場合
Dim Myroad
myroad = server.mappath（./ upload）
i = j + 1からubound（フォルダー）ステップ1の場合
Folder Myroad、Folder（i）をcreatefolder
myroad = myroad＆/＆＆＆＆フォルダー（i）
次
ifを終了します
End Sub
サブcreatefolder（mypath、foldername）
dim fso、f
fso = server.createObject（scripting.filesystemObject）を設定します
そうでない場合（fso.folderexists（mypath+/+foldername））
f = fso.createfolder（mypath+/+foldername）を設定します
ifを終了します
End Sub
FSO =何も設定しません
％>