VB中使用XML

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