Mega Code Archive

 

Categories / VB.Net / XML

 

XPathNavigator WriteSubtree

Imports System Imports System.Xml Imports System.Xml.XPath Public Class MainClass     Public Shared Sub Main()         Dim document As XPathDocument = New XPathDocument("domainBooks.xml")         Dim navigator As XPathNavigator = document.CreateNavigator()                  navigator.MoveToChild("bookstore", "http://www.domain.com/books")         navigator.MoveToChild("book", "http://www.domain.com/books")                  Dim writer As XmlWriter = XmlWriter.Create("domainBook.xml")         navigator.WriteSubtree(writer)                  writer.Close()     End Sub End Class