【VBA】空フォルダかどうかを判定する【チェック】

VBAコード

ここでは例として
　・デスクトップ配下のフォルダ「test」が
　・空フォルダかどうかを判定
します。

Option Explicit

'WindowsAPI PathIsDirectoryEmpty
Declare PtrSafe Function PathIsDirectoryEmpty Lib "SHLWAPI.DLL" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Boolean


Sub sample()

    Dim targetFolder As String
    
    'フォルダを指定
    targetFolder = "C:\Users\user\Desktop\test"

    '空フォルダかどうかを判定
    If PathIsDirectoryEmpty(targetFolder) = 1 Then
        MsgBox "空フォルダです！"
    Else
        MsgBox "空フォルダではありません！"
    End If
    
End Sub

実行結果

空フォルダかどうかを判定できました。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●Windows APIの「PathIsDirectoryEmpty関数」