Private Sub UserForm_Initialize()
...
' Alle Ordner in C: anzeigen
Call LoadWithFolders(TreeView1, sDirectory, "O_zu", "O_auf")
End Sub
 
' Diese Funktion lädt die erste Ebene eines
' Verzeichnisses und gibt die Nodes als Collectionen
' zurück
Function LoadWithFolders(oTreeView As TreeView, _
  sDirectory As String, _
  sImage As String, _
  sExpandedImage As String) As Collection
 
  Dim vFolder         As Variant
  Dim oNode           As Node
  Dim coNodes         As New Collection
  Dim coFolders       As New Collection
 
  ' Unterordner holen
  Set coFolders = GetSubFolders(sDirectory)
  For Each vFolder In coFolders
    ' jeden Ordner mit Bild dem TreeView hinzufügen
    Set oNode = oTreeView.nodes.Add(, tvwLast, , vFolder, sImage)
 
    ' Icon setzen, wenn es aufgeklappt wird
    oNode.ExpandedImage = sExpandedImage
    Call coNodes.Add(oNode)
  Next vFolder
  Set LoadWithFolders = coNodes
End Function
 
' Diese Funktion fügt alle Unterordner eines Verzeichnisses
' dem TreeView hinzu und das gleiche nochmal für jeden
' Unterordner (damit das '+' zum expandieren auch da
' ist)
Function AddFolders(oTreeView As TreeView, _
  oParentNode As Node, _
  sDirectory As String, _
  sImage As String, _
  sExpandedImage As String) As Collection
...
End Function
 
' Diese Funktion fügt alle Unterordner eines
' Verzeichnisses hinzu.
' Hierbei werden alle Nodes erstmal gelöscht, damit
' auch immer alles aktuell bleibt
Function AddSubFolders(oTreeView As TreeView, _
  oParentNode As Node, _
  sDirectory As String, _
  sImage As String, _
  sExpandedImage As String) As Collection
...
End Function
 
' Diese  Funktion löscht alle Childnodes eines
' Node-Objekts
Sub DeleteChildNodes(oTreeView As TreeView, _
  oNode As Node)
 
  Dim x               As Long
  Dim oChildNode      As Node
  Dim oNextNode       As Node
 
  ' 1. Childnode
  Set oChildNode = oNode.Child
  For x = 1 To oNode.Children
    ' Nächstes Childnode "merken"
    Set oNextNode = oChildNode.Next
 
    ' Childnode löschen
    Call oTreeView.nodes.Remove(oChildNode.Index)
 
    ' Gehe zu nächstem Childnode
    Set oChildNode = oNextNode
  Next x
End Sub
 
' Diese Funktion ermittelt die Unterordner eines
' Verzeichnisses und gibt deren Namen in einer
' Collection zurück
Function GetSubFolders(sDirectory As String) As Collection
...
End Function
 
' Diese Funktion überprüft, ob es sich bei dem
' übergebenen Verzeichnis um einen existierenden
' Ordner handelt
Function ExistDir(sdir As String) As Boolean
  ' Falls Verzeichnis nicht vorhanden ist
  On Error Resume Next
  ExistDir = ((GetAttr(sdir) And vbDirectory)) And (Err = 0)
  On Error GoTo 0
End Function

Private Sub cmdsuchen_Click()
Dim Suchbegriff As String
Dim i As Integer
 
Suchbegriff = TB_Suchen.Text
 
With TreeView1
    For i = 1 To .nodes.Count
        If UCase(.nodes(i).Text) Like "*" & UCase(Suchbegriff) & "*" Then
        .SetFocus
        .nodes(i).EnsureVisible
        .nodes(i).Selected = True
        .nodes(i).Expanded = True
        End If
    Next i
End With
End Sub

VG

Dirk