Sub ToString_Example() 

'The following example retrieves a list of links from the 

'"Simple Web Example" page, creates the FileSystemObject, 

'and uses the ToString method to write the test object (link) names (for example, 

'"banner" and "contents") and test object type (for example, "Frame") 

'to c:\Links.txt. 

 

Dim fso, ResultFile, oDesc 

'Get a collection of all Links in the "Simple Web Example" page 

Set oDesc = Description.Create 

oDesc("Class Name").Value = "Link" 

Set oLinkCollection = Browser("Simple XML Example from").Page("Simple Web Example").ChildObjects(oDesc) 

 

'Create the FileSystemObject 

Set fso = CreateObject("Scripting.FileSystemObject") 

Set ResultFile = fso.OpenTextFile("c:\Links.txt", 2, True) ' 2 = Open file for writing 

 

'Write to the file 

For i = 0 To oLinkCollection.Count - 1 

    ResultFile.Write oLinkCollection.Item(i).ToString & vbNewLine 

Next 

 ResultFile.Close 

 

End Sub