怎样用vb写入XML文件的第一行的信息？

Question

如下所示的一个XML文件的格式：<?xml version="1.0" encoding="GBK" ?> 
- <get_employee_info_out>
- <EmployeeData>
  <staff_name>张三</staff_name> 
  <staff_code>1001</staff_code> 
  </EmployeeData>
  </get_employee_info_out>我用语句向该文件写入信息过后，第一行的<?xml version="1.0" encoding="GBK" ?> 这一部分就没有了，只有根节点<get_employee_info_out>以及下面的信息，如下：
- <get_employee_info_out>
- <EmployeeData>
  <staff_name>张三</staff_name> 
  <staff_code>1001</staff_code> 
  </EmployeeData>
  </get_employee_info_out>请问怎样才能在写入的时候把第一行也写入？
多谢啦！

Answer 1

http://topic.csdn.net/u/20080805/11/d1892c23-0955-4b10-a52d-5554a8f42308.html
createProcessingInstruction 部分

Answer 2

可以用代码生成    Dim XmlDoc As New DOMDocument
    Call XmlDoc.appendChild(XmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""GBK"""))

Answer 3

dim node1 as variant
dim node2 as variantSet DOM= CreateObject("Microsoft.XMLDOM")
DOM.loadXML ("<?xml version=""1.0"" encoding=""GBK"" ?>")
set node1 =DOM.createElement("get_employee_info_out")
set node2= DOM.createElement("EmployeeData")
...
node1.appendChild node2