Access the answers to your technology questions today.
Subscribe Now
30-day free trial. Register in 60 seconds.
What Makes Experts Exchange Unique?
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
Subscribe Now
30-day free trial. Register in 60 seconds.
Join the Community
Give a Little. Get a Lot.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Join the Community
by: TheLearnedOnePosted on 2006-06-21 at 16:44:48ID: 16956156
Imports System.Xml
ges")
ame") attribFile Name)
, "c:\test\test.01")
Public Sub AddPage(ByVal xmlFileName As String, ByVal pageFileName As String)
Dim doc As New XmlDocument
doc.Load(xmlFileName)
Dim pages As XmlNode = doc.SelectSingleNode("//Pa
Dim newPage As XmlElement = doc.CreateElement("Page")
Dim attribFileName As XmlAttribute = doc.CreateAttribute("filen
attribFileName.Value = pageFileName
newPage.Attributes.Append(
pages.AppendChild(newPage)
doc.Save(xmlFileName)
End Sub
Sample usage:
AddPage("c:\temp\test.xml"
Bob