Mega Code Archive
Creates a new sibling node after the currently selected node using the XML contents of the XmlReader object specified
Imports System
Imports System.IO
Imports System.Xml
Imports System.Xml.XPath
Public Class MainClass
Public Shared Sub Main()
Dim document As XmlDocument = New XmlDocument()
document.Load("domainBooks.xml")
Dim navigator As XPathNavigator = document.CreateNavigator()
navigator.MoveToChild("bookstore", "http://www.domain.com/books")
navigator.MoveToChild("book", "http://www.domain.com/books")
navigator.MoveToChild("price", "http://www.domain.com/books")
Dim pages As XmlReader = XmlReader.Create(New StringReader("100"))
navigator.InsertAfter(pages)
navigator.MoveToParent()
Console.WriteLine(navigator.OuterXml)
End Sub
End Class