VBscriptでXMLのファイルから、XPathで指定したデータを読

質問

VBscriptでXMLのファイルから、XPathで指定したデータを読み込みたいと思っていますが、
XMLファイル中に指定したXPathのタグがない場合、"オブジェクトがありません。"
というエラーになってしまいます。
このような場合、どのような処理にすれば良いのでしょうか？親タグ、子タグなどを総当りで、存在するか調べないといけないのでしょうか？以下のようなスクリプトです。

Set xmlDoc = WScript.CreateObject("MSXML2.DOMDocument")
With xmlDoc
.Async = False
.Load("aaaa.xml")
xpath01 = "/tag1/tag2/tag3"
Set xmlNode = .selectSingleNode(xpath01)
MsgBox xmlNode.text
End With

回答No.1

yukimi1977 · ベストアンサー

おそらく、
　Set xmlNode = .selectSingleNode(xpath01)
の時点で、エラーになっているのではなく、
　MsgBox xmlNode.text
でエラーになってます。

Xpathに該当するノードがない場合には
xmlNodeがNothingになってますから、
その場合には、MsgBoxを実行しないようにします。

MsgBox xmlNode.text

を

If Not xmlNode is Nothing then
MsgBox xmlNode.text
EndIf

に変えてみてください。

お礼

yukimi1977様、
早速の回答、ありがとうございました。
ばっちり解決しました。
初めての質問を解決いだたき、感謝です。