Wiki Page: How can you open an XML file using a TestPartner TestScript?

The following TestPartner script details how to open an XML file: Sub Main() Dim fs, f, ts, s     Set fs = CreateObject("Scripting.FileSystemObject")     Set f = fs.GetFile("C:\Documents and Settings\SumaP\Desktop\suma.xml") Open "C:\Documents and Settings\SumaP\Desktop\suma.xml" For Input As #1    Set ts = f.OpenAsTextStream    s = ts.ReadAll     MsgBox s    Set ts = f.OpenAsTextStream    s = ts.ReadAll     MsgBox s End Sub