フォルダが空か調べる ： Access

Option Explicit

'フォルダが空か調べる
'戻り値
'空の場合： 1
'空でなければ： 0
Private Declare Function PathIsDirectoryEmpty Lib "SHLWAPI.DLL" _
Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Boolean

Private Sub コマンド1_Click()
    'フォルダが空か調べる
    If PathIsDirectoryEmpty("C:\test\") = 1 Then
        Me!コマンド1.Caption = "空です"
    Else
        Me!コマンド1.Caption = "有ります"
    End If
End Sub

Private Sub コマンド2_Click()
    'フォルダが空か調べる
    If PathIsDirectoryEmpty("C:\windows\") = 1 Then
        Me!コマンド2.Caption = "空です"
    Else
        Me!コマンド2.Caption = "有ります"
    End If
End Sub