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

Public Class frmDeleteEmptyDir
 
    Const PutzWeg As String = "C:\PutzWeg"
 
    Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" _
             Alias "PathIsDirectoryEmptyA" ( _
             ByVal pszPath As String) As Integer
 
 
    Private Sub frmDeleteEmptyDir_Load(sender As System.Object, _
                                       e As System.EventArgs) Handles _
                                       MyBase.Load
 
        If Not IO.Directory.Exists(PutzWeg) Then _
          IO.Directory.CreateDirectory(PutzWeg)
 
    End Sub
 
 
    Private Sub frmDeleteEmptyDir_FormClosing(sender As Object, _
        e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        If IO.Directory.Exists(PutzWeg) Then
            If Not PathIsDirectoryEmpty(PutzWeg) = 0 Then
                IO.Directory.Delete(PutzWeg)
            End If
        End If
    End Sub
 
End Class