[フォルダを作成する]

指定されたフォルダを作成します。
フォルダが既に存在していた場合は何もしません。

【ソースコード】

[tips0078.vbs]
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim strFolder   ' フォルダ名
Dim strMessage  ' 表示用メッセージ

strFolder = WScript.Arguments.Item(0)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    If objFSO.FolderExists(strFolder) = True Then
        strMessage = "フォルダ " & strFolder & " は既に存在しています。"
    Else
        objFSO.CreateFolder(strFolder)
        If Err.Number = 0 Then
            strMessage = "フォルダ " & strFolder & " を作成しました。"
        Else
            strMessage = "エラー: " & Err.Description
        End If
    End If
    WScript.Echo strMessage
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0078.vbs C:\Temp\TestFolder
フォルダ C:\Temp\TestFolder を作成しました。