ファイルがあるかチェック
ファイルが存在するかどうかをチェックします。
Option Explicit
MsgBox fnFileExists("test.txt")
Function fnFileExists(strFilePath)
Dim fsoTemp
fnFileExists = False
Set fsoTemp = WScript.CreateObject("Scripting.FileSystemObject")
If fsoTemp.FileExists(strFilePath) Then
fnFileExists = True
End If
Set fsoTemp = Nothing
End Function