CodeItBetter Programming Another VB Programming Blog

'XML Handling - Read XML
Sub ReadXMLFiles()
    Dim objXMLDOM As New MSXML2.DOMDocument26
    Dim objNodes As IXMLDOMNodeList
    Dim objBookNode As IXMLDOMNode
    Dim NodeValue
 
    'Load xml files
    objXMLDOM.async = False
    objXMLDOM.Load "G:\MyOffice\MyProjects\support\xml\test.xml"
 
    'Read XML Data
    Set objNodes = objXMLDOM.selectNodes("ErrorLog/Error")
    For Each objBookNode In objNodes
        If objBookNode.selectNodes("ErrorDateTime").length <> 0 Then
            NodeValue = objBookNode.selectSingleNode("ErrorDateTime").nodeTypedValue
            Debug.Print NodeValue
        End If
        If objBookNode.selectNodes("UserName").length <> 0 Then
            NodeValue = objBookNode.selectSingleNode("UserName").nodeTypedValue
            Debug.Print NodeValue
        End If
    Next objBookNode
End Sub