[ホーム] ＞ [VBScript FAQ 一覧] ＞ [再帰的にフォルダを作成する]

再帰的にフォルダを作成する | VBScript / VBA FAQ

以下再帰的にフォルダを作成するサンプルです。

Dim arrEachFolderName,FolderName,path,objFSO

rem 作成するフォルダ名
FolderToMake="c:\temp\1\2\3"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
arrEachFolderName = split(FolderToMake, "\")
path = ""

rem 各フォルダ名を順番に作成する
For Each FolderName In arrEachFolderName
If path <> "" Then
path = path & "\"
end if

path = path & FolderName
If objFSO.FolderExists(path) = False Then
objFSO.CreateFolder(path)
end if
next

[ホーム] ＞ [VBScript FAQ 一覧]