Format XML with Indentation

Demonstrates how to format XML with indenting.

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.

xml.LoadXml "<root><company><name>Chilkat Software, Inc.</name><url>http://www.chilkatsoft.com/</url><phone>630-784-9670</phone></company></root>"

' GetXml always returns the XML indented for
' visual inspection.
outFile.WriteLine(xml.GetXml())

' Output looks like this:
' 
' <?xml version="1.0" encoding="utf-8" ?>
' 
' <root>
'     <company>
'         <name>Chilkat Software, Inc.</name>
'         <url>http://www.chilkatsoft.com/</url>
'         <phone>630-784-9670</phone>
'     </company>
' </root>

outFile.Close