Domino中通过ls代理操作物力路径下的xml文件

----------------------------------创建xml----------------------------------------------------

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 
 Path = "D:\Test.xml"    '创建路径
 
 Dim ObjDom As Variant
 Set ObjDom = createObject("msxml2.domdocument")
 ObjDom.async = False
 ObjDom.resolveExternals = False
 Call ObjDom.Setproperty("SelectionLanguage","XPath")  '解析Xpath语言，区分大小写
 
 Set RootNode = ObjDom.CreateProcessingInstruction("xml","version='1.0' encoding='GBK'") '创建xml标签
 Call ObjDOM.Appendchild(RootNode)
 
 '创建根节点
 
 Set PNode = ObjDOM.Createelement("father")   
 Call PNode.Setattribute("ID","007")         '给PNode节点添加属性
 Call PNode.Setattribute("Name","sz")          '给PNode节点添加属性
 Call ObjDOM.Appendchild(PNode)
 
 '创建子节点
 Set CNode1 = ObjDom.Createelement("a1")
 Call CNode1.Setattribute("value","sz")
 
 Set CNode2 = ObjDom.Createelement("a2")
 Call CNode2.Setattribute("value","wy")
 
 Set CNode3 = ObjDom.Createelement("a1")
 Call CNode3.Setattribute("value","wsp")
 
 Call PNode.Appendchild(CNode1)
 Call PNode.Appendchild(CNode2)
 Call PNode.Appendchild(CNode3)
 
 '创建子节点
 
 Set NameNode1 = ObjDom.Createelement("Name")
 NameNode1.text = "特种兵"     '节点值
 Set NameNode2 = ObjDom.Createelement("Name")
 NameNode2.text = "小冶"