VBscriptでXMLデータの抽出に関する質問

解決済

質問者：otzotz
質問日時：2006/02/23 08:24
回答数：1件

教えて下さい。以下のようなXMLファイルがあります。
<?xml version="1.0" encoding="Shift-JIS"?>
<ROOT>
<INFO>
<NO>0001</NO>
<NAME>ABC</NAME>
<COMMENT>
</COMMENT>
<AGE>30</AGE>
</INFO>

</ROOT>

これを以下のようにVBScriptにてデータを取り出したいです。

Dim DOM, docRoot, node, nodeList, i, m
Dim objADO, objADO2
Dim objRS
Dim sqlstmt, strSQL
Dim no, comment

'DOMオブジェクト生成
Set DOM = CreateObject("Microsoft.XMLDOM")
'同期モード
DOM.async = True
'XMLを読み込む
DOM.load("11.xml")
'ルートセット
Set docRoot = DOM.documentElement

'ノードの設定
Set nodeList = docRoot.selectNodes("/ROOT/INFO")
'ループ
For Each node In nodeList
For i = 0 to node.ChildNodes.length - 1
Select case node.childNodes(i).nodeName
case "NO"
no = node.childNodes(i).firstChild.nodeValue
case "COMMENT"
comment = node.childNodes(i).firstChild.nodeValue
End select
Next
Next

ところがCOMMENTタグのようにデータが空のものがあると
「オブジェクトがありません」とエラーになります。
if Not IsNull(node.childNodes(i).firstChild.nodeValue) then
というようにもやってみましたが、これでも同じエラーとなってしまいます。
何か方法はないでしょうか？アドバイスを宜しくお願いします。