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




BackHome BackTips Backメニュー

■ Access VBA 実行コード

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

BackHome BackTips Backメニュー

Copyright(C) FeedSoft