' **************************************************************
' *
' *   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)