如何在子结点下加一父结点（急）

Set oRoot = oDoc.createElement("Root")
Set oDoc.documentElement = oRoot
oRoot.setAttribute "部门编号", "897"
' 加入子结点
Set oNode = oDoc.createElement("Document")
oNode.Text = "Demo"
oRoot.appendChild oNode

Set oNode = oDoc.createElement("CreateDate")
oRoot.appendChild oNode
oNode.Text = "Demo"

比如要在子结点下再增加一级结点如何加
如下

1<root 部门编号="897">   
2\- &lt;教育基金&gt;   
3\- &lt;山豆根时光&gt;   
4\- &lt;山豆根&gt;   
5<document>Demotr</document>
6<!--山豆根-->
7<!--山豆根时光-->
8<!--教育基金-->
9</root>

---------------------------------------------------------------

一次添加:
Set xmlDoc= CreateObject("Msxml2.DOMDocument")
xmlDoc.loadXML("<山豆根时光><山豆根>

1<document>Demotr</document>

")
oRoot.appendChild xmlDoc.documentElement
即可

---------------------------------------------------------------

'***************************以下为增加代码

Set oNode1 = oDoc.createElement("山豆根时光")
oRoot.appendChild oNode1

Set oNode2 = oDoc.createElement("山豆根")
oNode1.appendChild oNode2

oNode2.appendChild oRoot.removeChild(oNode)

--------
removeChild移去一下子节点，同时返回值为这个被移去的子节点