Writing to a File - FileSystemObject Method

Sub Write ()

Dim hostSettleTimeout As Integer

Dim hostSettleTime As Integer

Dim ibmCurrentScreen As IbmScreen

Dim ibmCurrentTerminal As IbmTerminal

Dim returnValue As Integer

Dim hiddenTextEntry As String

hostSettleTimeout = 5000

hostSettleTime = 300

Set ibmCurrentTerminal = ThisFrame.SelectedView.control

Set ibmCurrentScreen = ibmCurrentTerminal.Screen

' Writing File to C:\My Documents\File.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("C:\My Documents\File.txt", True)

a.WriteLine ("Hello World") ' Hello World is written to a File.txt

a.Close

End Sub