Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" _
                 Alias "PathIsDirectoryEmptyA" ( _
                 ByVal pszPath As String) As Integer

 If PathIsDirectoryEmpty("......") = 0 Then
    MsgBox("Der Pfad ist nicht leer")
 End If