最初に、ディレクトリが既に存在するかどうかを確認します。それが存在する場合、処理は行われず、存在しない場合は作成されます。
迅速に開発することが役立つことを願っています。
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 =何も設定しません
%>