FileSystemObjectのCreateFolderは上位フォルダが存在しないとエラーになるため、再帰的にディレクトリを作成する関数を作成
Function createDir( path )
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if Err.Number <> 0 Then
WScript.Quit()
elseif objFSO.FolderExists( path ) then
exit function
end if
createDir( objFSO.GetParentFolderName( path ) )
objFSO.CreateFolder( path )
end Function