[VB.NET] Gestione file XML

[mardok30]

Vorrei creare un file XML dove salvare le impostazioni di alcune stampanti installate nel pc, quindi vorrei una cosa del genere:
<?xml version="1.0" encoding="UTF-8"?>
<SETTINGS>
<STAMPANTE>
<NOMESTAMPANTE>PRINTER1</NOMESTAMPANTE>
<MARGINEDXSTAMPANTE>1,5</MARGINEDXSTAMPANTE>
</STAMPANTE>
<STAMPANTE>
<NOMESTAMPANTE>PRINTER2</NOMESTAMPANTE>
<MARGINEDXSTAMPANTE>2</MARGINEDXSTAMPANTE>
</STAMPANTE>
</SETTINGS>

Creo un nuovo file XML con questo codice:

Dim XmlDoc As New XmlDocument
                    Dim XmlDecl As XmlDeclaration
                    XmlDecl = XmlDoc.CreateXmlDeclaration("1.0", "UTF-8", "")
                    xmlDoc.AppendChild(XmlDecl)

                    Dim RootElem As XmlElement
                    RootElem = XmlDoc.CreateElement("SETTINGS")
                    RootElem.InnerText = " "
                    XmlDoc.AppendChild(RootElem)

                    XmlDoc.Save(Percorso)

e come risultato ho:

<?xml version="1.0" encoding="UTF-8"?>
<SETTINGS>
</SETTINGS>

mi sapreste dire come creare il tag STAMPANTE ed andarci a scrivere dentro le varie proprietà che non ci sto capendo più niente?

Ciao

[albgen]

Tieni presente che quasi tutto è un XmlElement e ogni XmlElement ha un padre e figli da zero a quello che vuoi quindi di conseguenza per aggiungere un figlio al primo elemento SETTINGS:
1. Crei l'elemento tramite Dim stampanteElement = XmlDoc.CreateElement("STAMPANTE")
2. Fai l'append al padre, che in questo caso è SETTINGS quindi RootElem.AppendChild(stampanteElement);

Comunque ti consiglio di leggere la documentazione su msdn.

[mardok30]

Breve risposta che mi ha illuminato
Sono giunto a questo codice per salvare un nuovo elemento

Dim XmlDoc As New XmlDocument
          XmlDoc.Load(Percorso)

            Dim NuovoElemento As XmlElement = XmlDoc.CreateElement(Elemento)
            NuovoElemento.InnerText = ValoreElemento
            Dim RootElement As XmlElement
            If NodoPadre = "" Then
                RootElement = XmlDoc.DocumentElement()
            Else
                If XmlDoc.DocumentElement(NodoPadre) Is Nothing Then
                    RootElement = XmlDoc.DocumentElement.FirstChild(NodoPadre)
                Else
                    RootElement = XmlDoc.DocumentElement(NodoPadre)
                End If
            End If
            RootElement.AppendChild(NuovoElemento)
            XmlDoc.Save(Percorso)

grazie, alla prossima

[albgen]

prego