Vba/xmldom

[Msadiqrajani]

Hello,

I want to add new element in existing XML file.Now I have following XML.

<persons>
<person id=1>
<fname> Bill </fname>
<lname> John </lname>
</person>

<person id=2>
<fname> John </fname>
<lname> Smith </lname>
</person>
</persons>

Now I want to add this node.

[CODE]<person id=3>
<fname> Adam </fname>
<lname> Bacher </lname>
</person>[/CODE]

I am using XMLDom for this and tried many thing but am unable to figure out code.

Please provide me code snippet or any outside resourse.
Thanks

 

[Msadiqrajani]

I done it my self.....

Sharing code....
Dim xDoc as MSXML2.DOMDocument
Dim nd As MSXML2.IXMLDOMNode
Dim attr As IXMLDOMAttribute

Set xDoc = New MSXML2.DOMDocument
xDoc.Load "c:\file.xml"
Set nd = xDoc.createNode(1, "person", "")

Set attr = xDoc.createAttribute("id")
attr.Value = 3
nd.Attributes.setNamedItem attr

nd.appendChild(xDoc.createElement("fname")).Text = "martin"
nd.appendChild(xDoc.createElement("lname")).Text = "Joe"

xDoc.LastChild.appendChild nd
xDoc.Save "c:\file.xml"