Binaryworld - CreateAppendElement - appending a XmlElement under another XmlNode ... [ VB.net -> XML ]

' Create an XmlElement object with inner text and make it a child of another
' XmlNode.
' Note: requires Imports System.Xml

Function CreateAppendElement(ByVal parentNode As XmlNode, ByVal name As String, _
  Optional ByVal innerText As String = Nothing) As XmlElement
  ' Create a new XmlElement object, set the return value.
  Dim xmlEl As XmlElement = parentNode.OwnerDocument.CreateElement(name)
  ' Set its inner text
  If Not (innerText Is Nothing) Then xmlEl.InnerText = innerText
  ' make it a child of its parent node.
  parentNode.AppendChild(xmlEl)
  ' Return the new node to the caller
  Return xmlEl
End Function

' Example:

' load a XML file
Dim xmldoc As New XmlDocument()
xmldoc.Load("Employees.xml")

' create new Employee element and set its attributes
Dim xmlEl As XmlElement = CreateAppendElement(xmldoc.DocumentElement, _
  "Employee")
xmlEl.SetAttribute("id", "100")
' create sub-elements
CreateAppendElement(xmlEl, "firstName", "Joe")
CreateAppendElement(xmlEl, "lastName", "Doe")