opret node i xml fil

Hej E.

Er her en som har prøvet at oprette en ny node i en eksisterende xml fil.
Min xml fil er således ud.

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<CONFIG>
  <GALLERIES>
    <FOLDER NAME="Nature">
      <GALLERY NAME="Oliver">
        <IMG HEIGHT="280" CAPTION="Dette er en test af billede funktionen" WIDTH="300" SRC="Oliver2.jpg" LINKTEXT="More pics" LINKURL="about:blank" INFOTEXT="Tekst Tekst Tekst Tekst" />
      </GALLERY>
    </FOLDER>
  </GALLERIES>
</CONFIG>

Men hvordan tilføjer men en ny node i filen?
Det er denne som skal tilføjes:

IMG HEIGHT="280" CAPTION="Dette er en test af billede funktionen" WIDTH="300" SRC="Oliver.jpg" LINKTEXT="More pics" LINKURL="about:blank" INFOTEXT="Tekst Tekst Tekst Tekst" />

Så xml filen nu se således ud

<?xml version="1.0" encoding="utf-8" standalone="no"?>
<CONFIG>
  <GALLERIES>
    <FOLDER NAME="Nature">
      <GALLERY NAME="Oliver">
        <IMG HEIGHT="280" CAPTION="Dette er en test af billede funktionen" WIDTH="300" SRC="Oliver2.jpg" LINKTEXT="More pics" LINKURL="about:blank" INFOTEXT="Tekst Tekst Tekst Tekst" />
<IMG HEIGHT="280" CAPTION="Dette er en test af billede funktionen" WIDTH="300" SRC="Oliver.jpg" LINKTEXT="More pics" LINKURL="about:blank" INFOTEXT="Tekst Tekst Tekst Tekst" />

      </GALLERY>
    </FOLDER>
  </GALLERIES>
</CONFIG>

Min opret fil kode ser således ud.

Dim ImgHight As Integer
        Dim ImgWidth As Integer
        ImgHight = 280
        ImgWidth = 300

        Dim OpretXMLFil As New XmlTextWriter("c:\temp\config.xml", Text.Encoding.UTF8)
        OpretXMLFil.Formatting = Formatting.Indented
        OpretXMLFil.WriteStartDocument(False)
        OpretXMLFil.WriteStartElement("CONFIG")
        OpretXMLFil.WriteStartElement("GALLERIES", Nothing)
     
        OpretXMLFil.WriteStartElement("FOLDER", Nothing)
        OpretXMLFil.WriteAttributeString("NAME", "Nature")

        OpretXMLFil.WriteStartElement("GALLERY", Nothing)
        OpretXMLFil.WriteAttributeString("NAME", "Oliver")

        OpretXMLFil.WriteStartElement("IMG", Nothing)
        OpretXMLFil.WriteAttributeString("HEIGHT", ImgHight)
        OpretXMLFil.WriteAttributeString("CAPTION", "Dette er en test af billede funktionen")
        OpretXMLFil.WriteAttributeString("WIDTH", ImgWidth)
        OpretXMLFil.WriteAttributeString("SRC", "Oliver2.jpg")
        OpretXMLFil.WriteAttributeString("LINKTEXT", "More pics")
        OpretXMLFil.WriteAttributeString("LINKURL", "about:blank")
        OpretXMLFil.WriteAttributeString("INFOTEXT", "Tekst Tekst Tekst Tekst")

        OpretXMLFil.WriteEndElement()
        OpretXMLFil.WriteEndElement()
        OpretXMLFil.WriteEndElement()
        OpretXMLFil.WriteEndElement()
        OpretXMLFil.WriteEndElement()

        OpretXMLFil.Flush()
        OpretXMLFil.Close()

På forhånd tak.