EXCEL VBA ファイルの存在確認

サンプル

    Debug.Print nblnファイル存在確認("C:\install.ini")                 'TRUE
    Debug.Print nblnファイル存在確認("C:\Program Files\df141\DF.exe")  'TRUE
    Debug.Print nblnファイル存在確認("C:\Program Files\df141\df.exe")  'TRUE
    Debug.Print nblnファイル存在確認("C:\Program Files\df141\nai.exe") 'FALSE

関連
　フォルダとファイル名を分けてファイルの存在確認する。
　
pgbigoroku.hatenablog.com

ソースコード

'
'   機能　　　:  ファイルの存在確認
'
'    返り値　　:     TRUE:ファイルがあるとき
'                   　FALSE:ファイルがないとき
'    引き数　　:    ByVal pstrファイル名 As String　確認するファイル名（フルパス推奨）
'
'    機能説明　:     ワイルドカードは使えません
'
'
'    備考　　　:     -
'
'    この関数のURL　　：https://pgbigoroku.hatenablog.com/entry/2022/08/17/005434
'
'    この関数を利用するために必要な関数：
'
'    バージョン　　：2022/8/18
'
Public Function nblnファイル存在確認(ByVal pstrフルパス As String) As Boolean
    Dim FSO As Object ' Scripting.FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(pstrフルパス) = True Then
        nblnファイル存在確認 = True
    Else
        nblnファイル存在確認 = False
    End If
    Set FSO = Nothing
End Function