If Len(Dir$("A:\РабочаяПапка", vbDirectory)) <> 0 Then

 Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim q As Long
   g = 0

   For q = 1 To TreeView1.Nodes.Count
   
   'TreeView1Nodes = TreeView1Nodes & TreeView1.Nodes(q).После точки не вываливается Name Item - что там есть???
   
   Next q
   
   MsgBox$ TreeView1Nodes

For Each Nodes In TreeView1
   q = q + 1
   Next Nodes

Option Explicit

Private Sub Form_Load()

   Call EnumAllDevices(TreeView1)
   MsgBox$ TreeView1.Nodes.Count
   
   Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim aNodes As TreeView
   
   For Each aNodes In TreeView1
   TreeView1Nodes = TreeView1Nodes & aNodes.Index
   Next
   
  MsgBox TreeView1Nodes
   
End Sub

Dim TreeView1Nodes As String
   TreeView1Nodes = ""
   
   Dim i As Long
   
   For i = 0 To TreeView1.Nodes.Count - 1
   TreeView1Nodes = TreeView1Nodes & TreeView1.Nodes(i).Text
   Next
   
   MsgBox TreeView1Nodes

Private Sub PrintRecursive(ByVal n As TreeNode)
   System.Diagnostics.Debug.WriteLine (n.Text)
   MessageBox.Show (n.Text)
   Dim aNode As TreeNode
   For Each aNode In n.Nodes
      PrintRecursive (aNode)
   Next
End Sub

'Вызов процедуры с использованием верхнего узла дерева
'Call the procedure using the top nodes of the treeview

Private Sub CallRecursive(ByVal aTreeView As TreeView)

   Dim n As TreeNode
   For Each n In aTreeView.Nodes
      PrintRecursive (n)
   Next
End Sub

Dim TreeView1Nodes As String
TreeView1Nodes = ""
   
Dim aNode As Node
   
For Each uc In TreeView1.Nodes
'изменение цвета узла
aNode.ForeColor = 255
TreeView1Nodes = TreeView1Nodes & aNode.Text
Next
  
MsgBox TreeView1Nodes

 TreeView1.SaveToFile ("C:\tree.txt")