[フォルダが存在しているか確認する]

指定されたフォルダが存在しているか確認します。

【ソースコード】

[tips0077.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
    strMessage = "フォルダ " & strFolder & " は"
    If objFSO.FolderExists(strFolder) = True Then
        strMessage = strMessage & "存在しています。"
    Else
        strMessage = strMessage & "存在していません。"
    End If
    WScript.Echo strMessage
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0077.vbs C:\Temp
フォルダ C:\Temp は存在しています。