ファイル、フォルダの存在確認 : Access



BackHome BackTips Backメニュー

■ 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

BackHome BackTips Backメニュー

Copyright(C) FeedSoft