[vbs]指定されたパスのフォルダを再帰作成

CreateFolder.vbs

Option Explicit

If WScript.Arguments.Count = 3 Then
    Call CreateFolder(WScript.Arguments.Item(0))
End If
Sub CreateFolder(strPath)
	Dim objFso
	Dim strParentPath
	
	Set objFso = CreateObject("Scripting.FileSystemObject")
	strParentPath = objFso.GetParentFolderName(strPath)
	
	If Not objFso.FolderExists(strParentPath) Then
		Call CreateFolder(strParentPath)
	End If
	
	If Not objFso.FolderExists(strPath) Then
		objFso.CreateFolder(strPath)
	End If
	
	Set objFso = Nothing
End Sub