Mega Code Archive

 

Categories / VisualBasic Script / XML

 

Retrieving the First Matching Node

Sub SelectSingleNode()      Dim xmldoc As MSXML2.DOMDocument50      Dim xmlSingleNode As MSXML2.IXMLDOMNode           Set xmldoc = New MSXML2.DOMDocument50      xmldoc.async = False      xmldoc.Load ("C:\yourFile.xml")      Set xmlSingleNode = xmldoc.SelectSingleNode("//Name")      If xmlSingleNode Is Nothing Then          Debug.Print "No nodes selected."      Else          Debug.Print xmlSingleNode.Text      End If      Set xmlDoc = Nothing  End Sub