工程→参照设定→Microsoft XML version 2.0
Dim
obj_XML_Document
As
DOMDocument
Dim subNode As IXMLDOMNode
オブジェクトを創建
Set obj_XML_Document = New DOMDocument
' ロードXML
obj_XML_Document.loadXML strList
' ロード成功かどうか
If obj_XML_Document.documentElement Is Nothing Then
LoadXMLTestCase = False
Exit Function
End If
' フォルダのパスを読み出す
Set subNode = obj_XML_Document.selectSingleNode(ROOT_NODE + " / " + PATH_NODE)
' 創建したのXMLファイルを保存する
obj_XML_Document.save m_FullName
Set obj_XML_Document = Nothing
Dim subNode As IXMLDOMNode
オブジェクトを創建
Set obj_XML_Document = New DOMDocument
' ロードXML
obj_XML_Document.loadXML strList
' ロード成功かどうか
If obj_XML_Document.documentElement Is Nothing Then
LoadXMLTestCase = False
Exit Function
End If
' フォルダのパスを読み出す
Set subNode = obj_XML_Document.selectSingleNode(ROOT_NODE + " / " + PATH_NODE)
' 創建したのXMLファイルを保存する
obj_XML_Document.save m_FullName
Set obj_XML_Document = Nothing