Parse a Google Sitemap

Download Chilkat XML ActiveX

How to parse a Google sitemap.

Dim xml As New ChilkatXml

'  The Chilkat XML component is freeware.

'  Load an XML sitemap:
xml.LoadXmlFile "sitemap.xml"

'  Iterate over the URL nodes:
Dim xUrl As ChilkatXml

Set xUrl = xml.FirstChild()

'  Loop over the records in the sitemap and display each URL.
Do While Not (xUrl Is Nothing )

    Text1.Text = Text1.Text & xUrl.GetChildContent("loc") & vbCrLf
    Text1.Refresh

    Set xUrl = xUrl.NextSibling()
Loop