【VBScript】ファイルの存在チェック

2023年2月4日VBScript

ファイルの存在チェック

VBScriptでファイルの存在チェックをする方法です。

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(ファイルパス) = True Then
	'ファイルが存在する場合
	msgbox("ファイルが存在します")
else
	'ファイルが存在しない場合
	msgbox("ファイルが存在しません")
End If

'実行例
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists("C:\test\temp2.txt") = True Then
	msgbox("ファイルが存在します")
else
	msgbox("ファイルが存在しません")
End If

 

 

ファイルの存在チェックの関数

上の方法を使ったファイル存在チェックの関数を作りました。

'--------------------------------------------------
' ファイルの存在チェック
' 引数
'   filePath：ファイルのパス（フルパス）
' 返り値
'   True：ファイルが存在する、False：存在しない
'--------------------------------------------------
Function checkFileExists(filePath)
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    '存在確認
    checkFileExists = fs.FileExists(filePath)
End Function

' 上の関数の呼び出し例
msgbox checkFileExists("C:\test\temp2.txt")