VBScript ファイルの存在確認

■ファイルの存在確認サンプル

Dim PATH : PATH= "c:\temp\test.vbs"

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")

If oFS.FileExists(PATH) Then
    MsgBox "ファイルが存在します: " & PATH
Else
    MsgBox "ファイルが存在しません: " & PATH
End If

Set oFS = Nothing

■判定部分を関数（Function）した場合。

Dim PATH : PATH = "c:\temp\test.vbs"

If FileExists(PATH) Then
    MsgBox "ファイルが存在します: " & PATH
Else
    MsgBox "ファイルが存在しません: " & PATH
End If

' ファイルの存在を確認する関数
Function FileExists(FILEPATH)
    Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
    FileExists = oFS.FileExists(FILEPATH)
    Set oFS = Nothing
End Function