能遍歷出一個xml文件的所有的節點。

Module Module1

    Sub Main()
        Dim iReturn As Integer
        Dim myXmlDocument As New XmlDocument
        myXmlDocument.Load("books.xml")
        Dim myNodes As XmlNode = myXmlDocument.DocumentElement

        ListNode(myNodes)
        myXmlDocument = Nothing

        Console.WriteLine("List Over!")

    End Sub

Sub ListNode(ByVal oNodes As XmlNode)

        Dim iAttrib, iNode, iChildNode As Integer

        If oNodes.ChildNodes(0).Name = "#text" Then
            Console.WriteLine(oNodes.Name & "= " & oNodes.InnerText)
        Else

            For iAttrib = 0 To oNodes.Attributes.Count - 1
                Console.WriteLine("Attributes: " & oNodes.Attributes(iAttrib).Name & "= " & oNodes.Attributes(iAttrib).Value)
            Next

            For iNode = 0 To oNodes.ChildNodes.Count - 1

                If oNodes.ChildNodes.Count >= 2 Then
                    Console.WriteLine("Call ListNode by self!")
                    ListNode(oNodes.ChildNodes(iNode))
                Else
                    ListNode(oNodes.ChildNodes(0))

                End If
            Next
        End If
    End Sub

End Module