VB中使用XML

工程→参照设定→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