Private Sub Dateien_Suchen(Startverzeichnis As String, Dateifilter As String)
        LBox_Gefunden_Verzeichnisse.Items.Clear()
        Dim aktuelles_Verzeichnis As String
 
        Dim list As List(Of String) = FileHelper.GetFilesRecursive( _
          Startverzeichnis)
 
        aktuelles_Verzeichnis = ""
        For Each path In list
            If InStr(path, "RECYCLE.BIN") = 0 Then
                If aktuelles_Verzeichnis <> IO.Path.GetDirectoryName(path) Then
                    aktuelles_Verzeichnis = IO.Path.GetDirectoryName(path)
                    Dim files() As String = Nothing
                    files = Directory.GetFiles(aktuelles_Verzeichnis & "\", _
                      Dateifilter)
                    If (files.Length > 0) Then
                        LBox_Gefunden_Verzeichnisse.Items.Add( _
                          IO.Path.GetDirectoryName(path))
                    End If
                End If
            End If
        Next
 
        Treeview_Anzeigen()
    End Sub
 
    Sub Treeview_Anzeigen()
        TreeView1.Nodes.Clear()
 
        For Each Verz In LBox_Gefunden_Verzeichnisse.Items
            Dim nNode As New TreeNode(Mid(Verz.ToString, 1, 3))
            Dim Verzeichnis As String = Mid(Verz.ToString, 4, 255)
            Dim VerzeichnissArray() As String = Split(Verzeichnis, "\")
 
            TreeView1.Nodes.Add(nNode)
 
            For v = 0 To VerzeichnissArray.Length - 1
                Dim subnode = nNode.Nodes.Add(VerzeichnissArray(v))
                nNode = subnode
            Next
        Next
 
        TreeView1.ExpandAll()
    End Sub