XML LINQ VB.Net

  1. Home
  2. VB.Net
  3. XML LINQ
  4. Loop through all the Employee nodes and insert the new TerminationDate node and the Status attribute
Imports System
Imports System.Xml.Linq
    Public Class MainClass
        Public Shared Sub Main()
            Dim employees As XElement = XElement.Load("Employees.xml")
            Dim newEmployee = >
                                  First
                                  Coder
                                  07/15/2006
                                  9.95
                              
            employees.Add(newEmployee)
            For Each ele In employees.
                ele.Add()
                ele.Add(New XAttribute("Status", ""))
            Next
            Console.WriteLine(employees.ToString())
        End Sub
    End Class