Forget it. My code is good, not my understanding of registry???
If you want make profit
Change the Debug.print with your specific code.
Public Sub Rec_Download(node As node)
'Downstair the tree under a specific node
Dim n As Integer
If node.Children = 0 Then Exit Sub
Set node = node.Child
' Set n to FirstSibling's index.
n = node.FirstSibling.Index
Debug.Print node
Do
If node.Children Then Rec_Download node
Set node = TreeView1.Nodes(n).Next
n = TreeView1.Nodes(n).Next.Index
Debug.Print node
Loop While n <> node.LastSibling.Index
End Sub
_____________________________________
Michel - Webmaster de MegaTen - VbTools
http://MegaTen.alterlinks.fr
_____________________________________
J'entends et j'oublie. Je vois et je me souviens.
Je fais et je comprends.
Quote:
> I wish to list all nodes ( expanded / not yes expanded)) from a tree under
> one specific node
> After lot of time I dont arrive to write the correct code for
> a recursive Sub??
> Do you have any address or sample to help me.
> Thanks
> --
> _____________________________________
> Michel - Webmaster de MegaTen - VbTools
> http://MegaTen.alterlinks.fr
> _____________________________________
> J'entends et j'oublie. Je vois et je me souviens.
> Je fais et je comprends.
List treeview