Accessing an XML Node's Attribute

Demonstrates how to access an XML node's attribute's value. In this example, we'll access the valud for the ISBN of the first book in the following XML document, which is located at http://www.chilkatsoft.com/testData/bookstore.xml

<?xml version="1.0" standalone="yes"?>
<bookstore>
   <book ISBN="10-000000-001">
...
</bookstore>

Download Chilkat XML ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set xml = CreateObject("Chilkat.Xml")

success = xml.LoadXmlFile("bookstore.xml")
If (success <> 1) Then
    MsgBox xml.LastErrorText
    WScript.Quit
End If

'  Navigate to the 1st child (i.e. the "book" node)
xml.FirstChild2 

'  Now access the attribute:

attrValue = xml.GetAttrValue("ISBN")

outFile.WriteLine(attrValue)


outFile.Close