【VBA】ファイルが存在するかを判定(FileExists)

FileSystemObjectのFileExistsメソッドについてです。

FileExistsメソッド

指定したファイルが存在するか判定してBool値が返ります。

FileSystemObject.FileExists(filespec)

引　数	必須 / 省略可	詳　細
ファイルパス (filespec)	必須	・存在するかを調べたいファイルパスを指定するとBool値が返ります。 True：存在する False：存在しない

ファイル（D:\sample\test.txt）が存在するか判定します。

Sub ファイルが存在するかの判定()

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'ファイルが存在するとTrueが返ります。

Debug.Print fso.FileExists("D:\sample\test.txt")

End Sub

【結果】

指定したファイルが存在するのでTrueが取得できます。

指定ファイルの存在を、IFとFileExistsで確認後に分岐させて処理を実行します。

Sub 応用FileExists()

Dim f As String: f = "D:\sample\test.txt"

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'ファイルが存在するかIF文とFileExistsメソッドで調べる

If fso.FileExists(f) Then

MsgBox "指定のファイルが見つかりました。"

Else

MsgBox "指定のファイルが見つかりません。"

End If

End Sub