'************************************************************************
' QTP - Compare Files
'************************************************************************
path="C:"
file1="MyFile1.txt"
file2="MyFile2.txt"
Call CompareFiles(path, file1, file2)
Public Function CompareFiles(path, file1, file2)
Const ForReading = 1, ForWriting = 2, BinaryCompare = 1
Dim fso, MyFile1, MyFile2, comp, ln1, ln2
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile1 = fso.OpenTextFile(path & "\\" & file1, ForReading)
Set...
