千月星跡

アイをも求めて彷徨っている孤独なヒーロー

用户操作

[留言] [发消息] [加为好友]

订阅我的博客

[编辑]Last_Impression的公告

[编辑]文章分类

存档

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

发表于 @ 2007年08月14日　16:43:00 | 评论( loading... ) | 编辑| 举报| 收藏

发表评论