TreeView Expand Nodes durch Pfadangabe Hier wird beschrieben wie mit gegebenen Ordnerpfad nur die im Pfad gegebenen Nodes expandiert werden.
Autor:   FrEakshoVV	Bewertung:     [ Jetzt bewerten ]	Views:  9.191
ohne Homepage	System:  WinXP, Win7, Win8, Win10, Win11	kein Beispielprojekt

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dass man mit dem TreeView relativ einfach den Verzeichnisbaum anzeigen lassen kann zeigt uns klar dieser Tipp:
 Explorer TreeView für VB.NET.

Da ich aber oft die Pfade aus z.B. Emails kopiere und direkt in die Adresszeile meines Explorers einfüge, brauche ich eine Funktion, die dann genau die im Pfad enthaltenen Nodes expandiert (wie man es von Windows bereits kennt).

Gegeben sind folgende Controls:

• TextBox4
• exploreR_TREEVIEW1 (das ist die TreeView Variante aus dem oben genannten Tip)

Sub TextBox4PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs)
  ' Hier wird als Trigger das Drücken der Enter-Taste genutzt, wenn Textbox4 im Focus steht.
  If e.KeyCode = Keys.Enter Then
    ' Die "Startposition" wird festgelegt
    Dim NodCol As TreeNodeCollection = exploreR_TREEVIEW1.Nodes
 
    ' Wird nur benutzt falls der gegebene Pfad falsch ist und/oder nicht 
    ' aufgelöst werden kann, zeigt den bisher gefundenen Pfad an.
    Dim Node As TreeNode
 
    ' Wird nur benutzt falls der gegebene Pfad falsch ist und/oder nicht aufgelöst 
    ' werden kann, zeigt den gesuchten und ggf. fehlenden/falsch geschriebenen Unterordner an.
    Dim FolderIndex As Integer = 0
 
    ' Der Pfad wird in "Unterordner" aufgesplittet
    Dim Tmpsplit As String() = textBox4.Text.Split(Convert.ToChar("\"))
 
    ' Da beim splitten alle BackSlashs ("\") entfernt werden, muss man es für 
    ' den Laufwerksbuchstaben wieder einfügen.
    Tmpsplit(0) = Tmpsplit(0) & "\"
 
    ' In der Schleife wird Step-by-Step jeder "Unterordner" abgefragt
    For i As Integer = 0 To Tmpsplit.Length - 1
      ' temporäre Kontrollvariable
      Dim TmpCount As Integer = 0
 
      ' Für jeden "Unterordner" wird der Name der enthaltenen Nodes mit 
      ' dem Namen des "Unterordners" verglichen.
      For Each Nod As TreeNode In NodCol
        ' Passt er, wird sofort das entsprechende TreeNode expandiert...
        If Tmpsplit(i) = Nod.Text Then
          Node = Nod
          Nod.Expand()
 
          ' ...seine ChildNodes eingelesen und als neue "Startposition" festgelegt.
          NodCol = Nod.Nodes
          TmpCount += 1
 
          ' Falls der Ordner gefunden wurde kann vorzeitig abgebrochen werden.
          Exit For
        Else
          FolderIndex = i
        End If
      Next 
 
      ' Hier wird abgefragt ob ein "Unterordner" gefunden wurde und falls 
      ' nicht mit Fehlermelung abgebrochen
      If TmpCount = 0 Then
        MsgBox("Unterordner nicht gefunden!" & vbCrLf & "Gefundener Pfad: " & Node.FullPath & vbCrLf & _
          "Gesuchter Unterordner: " & Chr(34) & Tmpsplit(FolderIndex) & Chr(34), MsgBoxStyle.Information)
        Exit Sub
      End If
 
    Next 
  End If
End Sub