XMLDOM ændring af rodens navn

En måde:

<foo>
    <x>1</x>
    <x>2</x>
    <x>3</x>
    <y>
        <z>ABC</z>
    </y>
</foo>

Set olddoc = CreateObject("Microsoft.XMLDOM")
olddoc.Async = False
olddoc.Load("foo.xml")
Set newdoc = CreateObject("Microsoft.XMLDOM")
newdoc.AppendChild(newdoc.CreateElement("bar"))
For Each n in olddoc.SelectNodes("//foo/*")
    newdoc.DocumentElement.AppendChild(n.CloneNode(True))
Next
newdoc.Save("bar.xml")
Set alldoc = Nothing
Set newdoc = Nothing

<bar><x>1</x>
    <x>2</x>
    <x>3</x>
    <y>
        <z>ABC</z>
    </y>
</bar>

OK ?