Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
Sub Main()
Dim xml As XElement = XElement.Load("XLINQ.xml")
Dim o As XNamespace = "urn:schemas-microsoft-com:office:office"
Dim query = From w In xml.Descendants(o + "Author") _
Select w
For Each record In query
Console.WriteLine("Author: {0}", record.Value)
Next
End Sub
End Module
|