<lstSite> <SITE> http://www.vbfrance.com <NOM>peuw.net</NOM> </SITE> <SITE> http://www.tresorsdevie.free.fr/selkis/ <NOM>poxx - Science Fair</NOM> </SITE> </lstSite>
Imports System.Xml 'création d'une nouvelle instance du membre xmldocument Dim XmlDoc As XmlDocument = New XmlDocument() 'création du document XmlDoc.LoadXml("[lstSite]/lstSite") 'création des elements du documents 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")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question