Windows APIを使ったファイル、フォルダの存在確認 ： Access

Option Explicit

'戻り値
'ファイルが存在するとき： 1
'ファイルが存在しないとき： 0
Private Declare Function PathFileExists Lib "SHLWAPI.DLL" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Private Sub コマンド1_Click()
    'ファイルの存在確認
    If PathFileExists("C:\windows\test.bmp") = 1 Then
        Me!コマンド1.Caption = "有り"
    Else
        Me!コマンド1.Caption = "無し"
    End If
End Sub

Private Sub コマンド2_Click()
    'フォルダの存在確認
    If PathFileExists("C:\windows\") = 1 Then
        Me!コマンド2.Caption = "有り"
    Else
        Me!コマンド2.Caption = "無し"
    End If
End Sub