タイトル : Re: XMLファイルにデータを追加したいです 投稿日 : 2006/01/12(Thu) 23:44 投稿者 : なおこ(・∀・)
お世話になります。 こんな感じでいかがでしょうか。 Dim xmlpath As String = System.IO.Path.Combine(Application.StartupPath, "test.xml") Dim doc As Xml.XmlDocument = New Xml.XmlDocument doc.Load(xmlpath) Dim membersNode As Xml.XmlNode membersNode = doc.SelectSingleNode("Contents2/Members") Dim accountNode As Xml.XmlElement = doc.CreateElement("Account2") With accountNode Dim nameNode As Xml.XmlElement = doc.CreateElement("Name") nameNode.InnerText = "Account4" .AppendChild(nameNode) Dim linkNode As Xml.XmlElement = doc.CreateElement("Link") linkNode.InnerText = "hhttp://www" .AppendChild(linkNode) Dim dataNode As Xml.XmlElement = doc.CreateElement("Data") dataNode.InnerText = "C:\data" .AppendChild(dataNode) End With membersNode.AppendChild(accountNode) doc.Save(xmlpath) |