[ファイルが存在しているか確認する]

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

【ソースコード】

[tips0085.vbs]
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim strFile     ' ファイル名
Dim strMessage  ' 表示用メッセージ

strFile = WScript.Arguments.Item(0)
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    strMessage = "ファイル " & strFile & " は"
    If objFSO.FileExists(strFile) = 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 tips0085.vbs C:\WINNT\System.ini
ファイル C:\WINNT\System.ini は存在しています。