• Home
 · 
• Windows System Services
 · 
• Recursive function to load system folders into a treeview.

Recursive function to load system folders into a treeview.

Recursive function to load system folders into a treeview.

API Declarations


Microsoft Common Controls 6 t = TreeView



Rate Recursive function to load system folders into a treeview.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    RFunction "C:\WINNT", True
    
End Sub

Private Function RFunction(CNode As String, RNode As Boolean)

    Dim f As New FileSystemObject, TNode As Folder

    If RNode Then t.Nodes.Add , , CNode, CNode
    For Each TNode In f.GetFolder(CNode).SubFolders
        t.Nodes.Add t.Nodes(CNode), 4, TNode, TNode.Name
        RFunction TNode.Path, False
    Next

End Function