■ Access VBA 実行コード
Option Explicit
'ファイル、フォルダの存在確認
Private Function AcDir(sName As String, nAttr As Integer) As String
If sName = "" Then
AcDir = ""
Exit Function
End If
On Error Resume Next
Err.Number = 0
AcDir = Dir(sName, nAttr)
If Err.Number <> 0 Then
AcDir = ""
End If
On Error GoTo 0
End Function
Private Sub コマンド1_Click()
'ファイルの存在確認
If AcDir("C:\windows\隅田川.bmp", vbNormal) <> "" Then
Me!コマンド1.Caption = "有り"
Else
Me!コマンド1.Caption = "無し"
End If
End Sub
Private Sub コマンド2_Click()
'フォルダの存在確認
If AcDir("C:\windows\", vbDirectory) <> "" Then
Me!コマンド2.Caption = "有り"
Else
Me!コマンド2.Caption = "無し"
End If
End Sub