pilgrim

Option Explicit

'-- Création du document XML
Dim xmlDoc
Set xmlDoc = CreateObject("Microsoft.XMLDOM")

'-- Création de l'élément racine
Dim menu
Set menu = xmlDoc.CreateElement("menu")
menu.SetAttribute "title", "Apache Manager"
menu.SetAttribute "autoreload", "true"
xmlDoc.appendChild menu

'-- Ajout des items
Dim item
Set item = xmlDoc.CreateElement("item")
item.SetAttribute "caption", "Quitter"
item.SetAttribute "cmd", "cmdQuit"
menu.appendChild item

'-- Ajout des instructions XML
Dim p
Set p = xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""iso-8859-1""")
xmlDoc.insertBefore p, xmlDoc.childNodes(0)

'-- Sauvegarde du fichier
xmlDoc.save("test.xml")