Compare Files: Compare the contents of two text files

' =============================================================
' function: CompareFiles
' desc :    Compares two text files
' params :  strFile1 is the first file
'           strFile2 is the second file
' returns : True if they are the same, False otherwise
' =============================================================
Function CompareFiles(strFile1, strFile2)

Dim objFS
Dim objFileA, objFileB
Dim strLineA, strLineB
dim intCompareResult

' create a file scripting object
Set objFS = CreateObject("Scripting.FileSystemObject")

' open each of the files for reading
Set objFileA = objFS.OpenTextFile(strFile1, 1)
Set objFileB = objFS.OpenTextFile(strFile2, 1)

' repeat the following until we hit the end of one of the files
Do While ((objFileA.AtEndOfStream <> True) OR (objFileB.AtEndOfStream <> True))

    ' read the next line from both files
    strLineA = objFileA.ReadLine
    strLineB = objFileB.ReadLine

    ' perform a comparison on the line from each file
    intCompareResult = StrComp(strLineA,strLineB,0)

    ' if the value of the comparison is not 0, lines are different
    If (intCompareResult <> 0) Then

        ' found a difference in the files, so close them both
        objFileA.Close
        objFileB.Close

        ' destroy the object
        Set objFS = Nothing

        ' return false
        CompareFiles = False

        ' exit the function
        Exit Function

    End If ' if different

Loop ' until end of file

' close both files
objFileA.Close
objFileB.Close

' destroy the object
Set objFS = Nothing

' if function got this far, means files are the same, so return True
CompareFiles = True

End Function 'CompareFiles