Mega Code Archive

 

Categories / VB.Net / XML

 

XmlWriter WriteNode (XPathNavigator, Boolean)

Imports System Imports System.IO Imports System.Xml Imports System.Xml.XPath Module Module1     Sub Main()         Dim doc As XPathDocument = New XPathDocument("books.xml")         Dim nav As XPathNavigator = doc.CreateNavigator()         Dim writer As XmlWriter = XmlWriter.Create(Console.Out)         writer.WriteStartElement("myBooks")         nav.MoveToChild("bookstore", "")         nav.MoveToChild("book", "")         writer.WriteNode(nav, False)         writer.WriteEndElement()         writer.Close()     End Sub End Module