Compare Plain File ‘///////////////////////////////////////////////////////////////////////////////////////////////////////////
'
' Compare two plain file in row-to-row
' Return Code: 1 = same; 0=difference
'
‘//////////////////////////////////////////////////////////////////////////////////////////////////////////
public Function ComparePlainFile(cFile1, cFile2)
On Error Resume Next
ComparePlainFile = 1
Const ForReading = 1
Dim fso, txtFile1, strLine1, txtFile2, strLine2
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txtFile1 = fso.OpenTextFile(cFile1, ForReading)
Set txtFile2 = fso.OpenTextFile(cFile2, ForReading)
Do Until txtFile1.AtEndOfStream or txtFile2.AtEndOfStream
strLine1 = trim(txtFile1.ReadLine)
strLine2 = trim(txtFile2.ReadLine)
If strLine1<>strLine2 Then