'Pfad dem TreeView hinzufügen
    Public Sub AddToTreeView(ByVal xTreeView As TreeView, ByVal Pfad As String)
 
        'Wird später benötigt
        Dim TN As New TreeNode
 
        'Pfad splitten
        Dim splt() As String
        splt = Split(Pfad, "\")
 
        'Jedes Element des Pfades durchgehen und prüfen,
        'ob es existiert. Wenn nicht, erstellen.
 
        'Stammelemente prüfen
        If Not ExistsNode(xTreeView.Nodes, splt(0)) Then
 
            'Node hinzufügen
            TN = New TreeNode
            TN.Text = splt(0)
            xTreeView.Nodes.Add(TN)
 
            'Damit Unterelemente hinzugefügt werden können
            LastTreeNode = TN
        End If
 
        'Weitere Unterelemente hinzufügen?
        If splt.Length > 1 Then
 
            'Alle durchgehen
            Dim i As Integer
 
            'Erstes Element überspringen, also mit 1
            'anfangen, da das ja schon oben
            'bearbeitet wurde
            For i = 1 To splt.Length - 1
 
                'Existier das Unterelement schon?
                If Not ExistsNode(LastTreeNode.Nodes, splt(i)) Then
 
                    'Node hinzufügen
                    TN = New TreeNode
                    TN.Text = splt(i)
                    LastTreeNode.Nodes.Add(TN)
 
                    'Damit Unterelemente hinzugefügt werden können
                    LastTreeNode = TN
                End If
 
            Next
 
        End If
 
    End Sub
 
    Private LastTreeNode As TreeNode
 
    'Prüft ob eine TreeNode besteht.
    Private Function ExistsNode(ByVal xNode As TreeNodeCollection, ByVal Name _
      As String) As Boolean
 
        ExistsNode = False
 
        'Jedes Element der TreeNode durchlaufen und
        'prüfen, ob ein Element mit diesem Namen
        'schon besteht
        Dim y As TreeNode
        For Each y In xNode
            If y.Text = Name Then
                ExistsNode = True
 
                'TreeNode der Variable LastTreeNode
                'zuweisen, damit Unterelemente
                'hinzugefügt werden können.
 
                LastTreeNode = y
 
                Exit Function
            End If
        Next
 
    End Function

AddToTreeView(TreeView1, "Node\UnterNode\UnterUnterNode")