Mega Code Archive

 

Categories / VB.Net / XML LINQ

 

Select all Descendants

Module Program   Sub Main()     Dim doc As XElement = XElement.Load("Inventory.xml")     Dim petNames = From pn In doc.Descendants("PetName") Select pn.Value     For Each name In petNames       Console.WriteLine("Name: {0}", name)     Next   End Sub End Module