Asp は fso を使用して、指定されたディレクトリに従ってフォルダーを作成します

サブ EFolder(フォルダ名)

ディムFSO

FSO=Server.CreateObject(Scripting.FileSystemObject) を設定します。

Fso.folderexists(Server.MapPath(FolderName)) の場合

FSO=何も設定しない

出口サブ

それ以外

FSO.CreateFolder(サーバー.マップパス(フォルダー名))

終了する場合

FSO=何も設定しない

エンドサブ

'================================================ ==================

サブ配列フォルダー(パス,sep)

Dim ArrayPath、EPath、newPath

ArrayPath = split(Path,sep)

新しいパス=

ArrayPath 内の各 Epath について

newPath=newPath&Epath&/

newPath = replace(newPath,//,/)

Eフォルダーの新しいパス

次

エンドサブ

配列フォルダー 1/2/3、/