Public Function VerzeichnisIsLeer(ByVal _Verzeichnis As String) As Boolean
        Dim VerzInfo As New System.IO.DirectoryInfo(_Verzeichnis)
        If Not VerzInfo.Exists Then Throw New Exception( _
            "Verzeichnis " & _Verzeichnis & " ist nicht vorhanden")
 
        If VerzInfo.GetDirectories.Length > 0 OrElse _
            VerzInfo.GetFiles.Length > 0 Then
            Return False
        Else
            Return True
        End If
    End Function