Parse a Google Sitemap

How to parse a Google sitemap.

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


set xml = CreateObject("Chilkat.Xml")

'  The Chilkat XML component is freeware.

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

'  Iterate over the URL nodes:

Set xUrl = xml.FirstChild()

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

    outFile.WriteLine(xUrl.GetChildContent("loc"))

    Set xUrl = xUrl.NextSibling()
Loop
outFile.Close