Debugging using File Operations

The following are some file operations which are useful for debugging. The following examples can be found in the FileOperationForDebugging.vbs file located in the <UFT installation folder>\CodeSamplesPlus folder.

' Creates a specified file and returns a TextStream object that can be used to read from or write to the file.
' Example of usage:
' Set f = CreateFile("d:	emp\beenhere.txt", True)
' f.WriteLine Now
' f.Close
Function CreateFile(sFilename, bOverwrite)
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set CreateFile = fso.CreateTextFile(sFilename, bOverwrite)
End Function

' Opens a specified file and returns a TextStream object that can be used to read from, write to, or append to the file.
' iomode: 1 - ForReading, 2 - ForWriting, 8 - ForAppending
' Example of usage
' Set f = OpenFile("d:	emp\beenhere.txt", 2, True)
' f.WriteLine Now
' f.Close
Function OpenFile(sFilename, iomode, create)
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set OpenFile = fso.OpenTextFile(sFilename, iomode, create)
End Function

' Appends a line to a file.
' Example of usage:
' AppendToFile "d:	emp\beenhere.txt", Now
Function AppendToFile(sFilename, sLine)
	Const ForAppending = 8
	If sFilename = "" Then
		sFilename = Environment("SystemTempDir") & "\QTDebug.txt"
	End If
	Set f = OpenFile(sFilename, ForAppending, True)
	f.WriteLine sLine
	f.Close
End Function

' Writes a line to a file.
' Destroys the current content of the file.
' Example of usage:
' WriteToFile "d:	emp\beenhere.txt", Now
Function WriteToFile(sFilename, sLine)
	Const ForWriting = 2
	If sFilename = "" Then
		sFilename = Environment("SystemTempDir") & "\QTDebug.txt"
	End If
	Set f = OpenFile(sFilename, ForWriting, True)
	f.WriteLine sLine
	f.Close
End Function