Dim text As XmlTextDim doc As New XmlDocument'加入XML的声明段落 Dim node As XmlNode = doc.CreateXmlDeclaration("1.0", "UTF-8", "yes")doc.AppendChild(node)'加入一个根元素 Dim ele1 As XmlElement = doc.CreateElement("", "bookstore", "")text = doc.CreateTextNode("")ele1.AppendChild(text)doc.AppendChild(ele1)'加入一个子元素()Dim ele2 As XmlElement = doc.CreateElement("", "book", "")text = doc.CreateTextNode("")ele2.AppendChild(text)'为子元素"book"增加两个属性 ele2.SetAttribute("genre", "", "fantasy")ele2.SetAttribute("ISBN", "2-3631-4")doc.ChildNodes.Item(1).AppendChild(ele2)'创建三个子元素的子元素()Dim ele3 As XmlElement = doc.CreateElement("", "title", "")text = doc.CreateTextNode("Oberon's Legacy")ele3.AppendChild(text)doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele3)Dim ele4 As XmlElement = doc.CreateElement("", "author", "")text = doc.CreateTextNode("Corets, Eva")ele4.AppendChild(text)doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele4)Dim ele5 As XmlElement = doc.CreateElement("", "price", "")text = doc.CreateTextNode("5.95")ele5.AppendChild(text)doc.ChildNodes.Item(1).AppendChild(ele2).AppendChild(ele5)'保存doc.Save("D:\app.config")

文件打出来是这样的

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

<bookstore>

<book genre="fantasy" ISBN="2-3631-4">

<title>Oberon's Legacy</title>

<author>Corets, Eva</author>

<price>5.95</price>

</book>

</bookstore>