急问，如何用DOM谢XML文件头 ？

[krqii]

我这样做：
Dim dom As New DOMDocument30
Set dt = dom.createNode(NODE_DOCUMENT_TYPE, "sys", "dtd")
dom.Save ("e:\text.xml")
我这样做不行，出现自动化错误:(
请问大虾们，应该如何写，我搜遍了网络也没找到郁闷，msdn里说用NODE_DOCUMENT_TYPE
但是我用时就是不好使呢？:(

[krqii]

大虾们，帮忙啊~~~感激ing

[officecn]

你的语句有问题。
Dim Dom As New DOMDocument
Dim NewNode As IXMLDOMNode
Set NewNode = Dom.createElement("RootNode")
Dom.appendChild NewNode
Dom.save "C:\1.xml"

[krqii]

不是那个问题，我只是说明意思的，这里执行不了
Set dt = dom.createNode(NODE_DOCUMENT_TYPE, "sys", "dtd")
说NODE_DOCUMENT_TYPE参数不行：（
我现在只想怎么能写这个头
<!DOCTYPE system SYSTEM "CFCAH_ModelFlow.dtd">
就可以，请问还有什么办法没有？

[krqii]

唉，最后还是没找到：（
采用了先把生成的XML放到一个临时文件里，然后再建一个新文件用writeLine写进去
最后再把临时文件内容追加到后面：（