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