ファイルの存在をチェックする

2019年6月14日2021年8月22日

FileExists関数

引数で指定したファイルパスの存在をチェックし、結果を真偽値で返す関数。

'==================================================
' <summary>
' ファイルの存在をチェックする
' </summary>
' <param name="filePath">ファイルパス</param>
' <returns>判定結果</returns>
'==================================================
Public Function FileExists(filePath As String) As Boolean

    FileExists = False

    With CreateObject("Scripting.FileSystemObject")
        FileExists = .FileExists(filePath)
    End With

End Function

実行方法

'==================================================
' <summary>
' FileExists関数のテスト
' </summary>
'==================================================
Sub TestFileExists()

    Dim result As String

    ' 存在するファイル
    result = FileExists("C:\Test\aaa.txt")
    ' 存在しないファイル
    result = result &amp;amp; vbCrLf &amp;amp; FileExists("C:\Test\bbb.txt")
    ' 存在するフォルダ
    result = result &amp;amp; vbCrLf &amp;amp; FileExists("C:\Test")

    MsgBox result

End Sub

実行結果