1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Dim XmlDoc As XmlDocument = New XmlDocument()
'création du document
XmlDoc.LoadXml("[lstSite][/lstSite]")
Dim elemSite As XmlElement
elemSite = XmlDoc.CreateElement("SITE")
'creation et definition de la balise url (enfant)
Dim elemUrl As XmlElement
elemUrl = XmlDoc.CreateElement("URL")
elemUrl.InnerText = " http://www.peuw.net/index.xml "
'creation et definition de la balise Nom (enfant)
Dim elemNom As XmlElement
elemNom = XmlDoc.CreateElement("NOM")
elemNom.InnerText = " peuw.net "
'ajout des 2 balise enfants a la balise parent
elemSite.AppendChild(elemUrl)
elemSite.AppendChild(elemNom)
'on ajoute la balise parent au document
XmlDoc.DocumentElement.AppendChild(elemSite)
'Ecriture du Xml
XmlDoc.Save(Application.StartupPath & "Newsite.XML")
MsgBox("Enregistrement réussi") |