level 1
快樂钚哆
楼主
Dim obj_XML_Document As DOMDocumentDim 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
2008年01月29日 03点01分
1