XML Class to read & write

[k_zeon]

Hi.
I am wondering if anyone has a drop in class that is easy to read & write nested xml files. Ive seen and got a few that read very basic xml files.
but i am not good enough to make it read & write nested tags.

ie

<config>
   <Screen>
        <Size>10</Size>
        <somethingelse>blah blah</somethingelse>
   <Screen>
   <Next setting>test</Next setting>
   <Anotherone>xxxxxxx</Anotherone>
</config>

tks

[dday9]

Moved from codebank and added [code][/code] tags.

[Arnoutdv]

Menu option "Project" -> "References"
Create a reference to "Microsoft XML, v6.0"

Private Sub Command1_Click()
  Dim oXML As MSXML2.DOMDocument60
  Dim oNode As MSXML2.IXMLDOMElement
  Dim oRoot As MSXML2.IXMLDOMElement
  
  Set oXML = New MSXML2.DOMDocument60
  Set oRoot = oXML.appendChild(oXML.createElement("config"))
  Set oNode = oRoot.appendChild(oXML.createElement("screen"))
  oNode.appendChild(oXML.createElement("Size")).Text = "10"
  oNode.appendChild(oXML.createElement("somethingelse")).Text = "blah"
  oRoot.appendChild(oXML.createElement("NextSetting")).Text = "test"
  oRoot.appendChild(oXML.createElement("Anotherone")).Text = "xxxxxxx"
  
' A call to Replace() to print the nodes a new line
  Debug.Print Replace(oXML.xml, "><", ">" & vbCrLf & "<")
End Sub

Output:

<config>
<screen>
<Size>10</Size>
<somethingelse>blah</somethingelse>
</screen>
<NextSetting>test</NextSetting>
<Anotherone>xxxxxxx</Anotherone>
</config>