' **************************************************************
' *
' *   Explorer TreeView Komponenten-Klasse (VB.Net 2005)
' *
' *   Diese Klasse stellt ein Explorer TreeView zur Vergügung.
' *   Mit der überladenen Methode "ShowTree" wird das TreeView
' *   initialisiert.
' *
' *   Februar 2007 - VB-Power.net
' *   http://www.vb-power.net/
' *
' **************************************************************
Option Explicit On
Option Strict On
 
Imports System.IO
 
Public Class ExpTree
    Inherits System.Windows.Forms.TreeView
    Sub Clear()
        Me.Nodes.Clear()
    End Sub
    Sub Show_all()
        Me.ExpandAll()
    End Sub
    Public Sub New()
        Me.Sort()
        Me.HotTracking = True
        Me.HideSelection = False
    End Sub
 
    Public Sub ShowTree(ByVal Vorher_leeren As Boolean, ByVal Alle_Anzeigen As _
      Boolean)
        For Each d As DriveInfo In DriveInfo.GetDrives
            Me.ShowTree(d.Name, Vorher_leeren, Alle_Anzeigen) ', Alle_Anzeigen)
        Next
        If Alle_Anzeigen = True Then ExpandAll()
 
    End Sub
 
    Public Sub ShowTree(ByVal Path As String, ByVal Vorher_Leeren As Boolean, _
      ByVal Alle_Anzeigen As Boolean) ', ByVal Alle_Anzeigen As Boolean)
        If Vorher_Leeren = True Then Clear()
        Dim nNode As New TreeNode(Path)
        Me.Nodes.Add(nNode)
        Me.FillTreeNode(nNode)
 
        If Alle_Anzeigen = True Then ExpandAll()
 
    End Sub
    Public Sub ShowTree(ByVal DriveType As DriveType, ByVal Vorher_leeren As _
      Boolean, ByVal Alle_Anzeigen As Boolean)
        For Each d As DriveInfo In DriveInfo.GetDrives
            If d.DriveType = DriveType Then
                Me.ShowTree(d.Name, Vorher_leeren, Alle_Anzeigen)
            End If
        Next
    End Sub
 
    Private Sub FillTreeNode(ByVal dNode As TreeNode)
        Try
            Dim d As New DirectoryInfo(dNode.FullPath)
            For Each di As DirectoryInfo In d.GetDirectories
                'MsgBox(d.FullName & di.Name)
 
' Das hier deaktivierte Filtern funktioniert zwar, erlaubt aber keine weitere 
' Suche der Unterverzeichnisse 
                'Dim files() As String = Nothing
                'files = Directory.GetFiles(d.FullName & "\" & di.Name, "*.mp3")
                'If (files.Length > 0) Then
                '    MsgBox("Gefunden: " & d.FullName & di.Name)
                Dim nNode As New TreeNode(di.Name)
                dNode.Nodes.Add(nNode)
                nNode.Nodes.Add("")
                'End If
 
            Next
        Catch : End Try
    End Sub
 
    Protected Overrides Sub OnBeforeExpand(ByVal e As _
      System.Windows.Forms.TreeViewCancelEventArgs)
 
        Dim n As TreeNode = CType(e.Node, TreeNode)
        If n.Nodes(0).Text = "" Then
            Me.BeginUpdate()
            n.Nodes.Clear()
            Me.FillTreeNode(n)
            Me.EndUpdate()
        End If
        MyBase.OnBeforeExpand(e)
    End Sub
 
End Class
 
Aufruf:  ExpTree1.ShowTree(Tbox_Verzeichnis.Text, True, True)

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

Dim files() As String = Nothing

Imports System.IO
 
''' <summary>
''' This class contains directory helper method(s).
''' </summary>
Public Class FileHelper
 
    ''' <summary>
    ''' This method starts at the specified directory, and traverses all 
    ' subdirectories.
    ''' It returns a List of those directories.
    ''' </summary>
    Public Shared Function GetFilesRecursive(ByVal initial As String) As List( _
      Of String)
        ' This list stores the results.
        Dim result As New List(Of String)
 
        ' This stack stores the directories to process.
        Dim stack As New Stack(Of String)
 
        ' Add the initial directory
        stack.Push(initial)
 
        ' Continue processing for each stacked directory
        Do While (stack.Count > 0)
            ' Get top directory string
            Dim dir As String = stack.Pop
            Try
                ' Add all immediate file paths
                result.AddRange(Directory.GetFiles(dir, "*.*"))
 
                ' Loop through all subdirectories and add them to the stack.
                Dim directoryName As String
                For Each directoryName In Directory.GetDirectories(dir)
                    stack.Push(directoryName)
                Next
 
            Catch ex As Exception
            End Try
        Loop
 
        ' Return the list
        Return result
    End Function
 
End Class