Dim myDirectiory As String = "C:\Mein Ordner\"
        If My.Computer.FileSystem.GetFiles(myDirectiory).Count = 0 Then
            If My.Computer.FileSystem.GetDirectories(myDirectiory).Count = 0 _
              Then
                MsgBox("Leer")
            End If
        End If