Private Sub FillCDTreeView()
        For i As Integer = 0 To SourceFiles.Length - 1
            m_Counter = 0
            'Verzeichnistiefe ermitteln
            m = SourceFiles(i).Split("\")
            m_Depth = m.Length - 1
            '---> Der erste Teil in m()ist die Root!
            'Existiert bereits das Laufwerk im Treeview?
            Dim tn As TreeNode
            Try
                tn = Me.trvCD.Nodes.Item(0) 'Knoten über "Key" ermitteln
            Catch ex As Exception
                tn = Nothing
            End Try
            If IsNothing(tn) Then 'Root anlegen
                tn = Me.trvCD.Nodes.Add(m(0)) '"Key",Text 
            End If
            m_Counter += 1 'Verzeichnistiefe festhalten
            Call ReadRekursivPathInTreeview(tn)
        Next
    End Sub
 
    Private Sub ReadRekursivPathInTreeview(ByVal tn As TreeNode)
        If m_Counter > m_Depth Then Exit Sub
        Dim xn As TreeNode
        'Feststellen, ob der nächste Ordner sich bereits schon im Treeview 
        ' befindet
        For Each vn As TreeNode In tn.Nodes
            If vn.Text = m(m_Counter) Then
                xn = vn
                Exit For
            End If
        Next
 
        If IsNothing(xn) Then 'Treenode existiert noch nicht
            xn = tn.Nodes.Add(m(m_Counter))
        End If
 
        m_Counter += 1 'Verzeichnistiefe festhalten
 
        'Rekurisver Aufruf
        Call ReadRekursivPathInTreeview(xn)
    End Sub

Das Meiste wird deshalb nicht getan, weil es nicht unternommen wird.