Dim trvNode As New TreeNode(Hauptpfad)
otrv.Nodes.Add(trvNode)
Me.FillTreeNode(trvNode)

Private Sub FillTreeNode(ByVal dNode As TreeNode)
        Dim oliste As DataGridView = Me.dgvVersionCurrent
        Dim sqry As String = ""
        Dim rs As New ADODB.Recordset
 
        Try
            Dim DirFolders As New System.IO.DirectoryInfo(dNode.FullPath)
            For Each Folders As System.IO.DirectoryInfo In _
              DirFolders.GetDirectories
                Dim trvNode As New TreeNode(Folders.Name)
                dNode.Nodes.Add(trvNode)
                dNode.LastNode.ForeColor = Color.DarkGreen  'alle Knoten / 
                ' Nodes "grün" färben
                FillTreeNode(trvNode)
            Next
        Catch
            Call OnErr(Me.Name, "FillTreeNode", Err.Description)
        End Try
    End Sub

For Each TreeNode In otrv.Nodes(0).Nodes
If InStr(TreeNode.ToString, "Version") = 0 Then TreeNode.Remove()
Next