Public Sub TNodeToXml(trvw As TreeView, Optional NodeK As String, Optional Tabs As String = "")

Dim i As Integer, k As Integer
Dim NodekT As String
Dim StrOver As String

If Len(NodeK) = 0 Then
   NodeK = trvw.Nodes(1).key
   If Dir(CurrentProject.Path & "\tt.xml") <> "" Then Kill CurrentProject.Path & "\tt.xml"
   Open CurrentProject.Path & "\tt.xml" For Output As #1
   Print #1, "<?xml version=""1.0"" encoding=""GB2312"" ?>"
   Print #1, "<Node Label=""" & trvw.Nodes(1).text & """>"
End If

k = trvw.Nodes(NodeK).Children

For i = 1 To k

   If i = 1 Then
      NodekT = trvw.Nodes(NodeK).Child.key
   Else
      NodekT = trvw.Nodes(NodekT).Next.key
   End If
   If trvw.Nodes(NodekT).Children = 0 Then StrOver = "/" Else StrOver = ""
   Print #1, Tabs & vbTab & "<Node Label=""" & trvw.Nodes(NodekT).text & """" & StrOver & ">"
   Call TNodeToXml(trvw, NodekT, Tabs & vbTab)

Next i

If k > 0 Then Print #1, Tabs & "</Node>"
If NodekT = trvw.Nodes(1).Child.LastSibling.key Then Close #1

End Sub

---------------------

调用时

Call TNodeToXml(trvw.Object) '注 trvw 为 你所要导出的treeview控件名