Function for comaprison of contents of two text files

[joshsri]

Hi Everyone,

My Greetings.
I have an Issue.I have to COMPARE the contents of two text files.
For your kind reference i have written my piece of code here :
------------------------------------------------------------

Code:

Const ForReading = 1, ForWriting = 2
Dim fso, txtFile, txtFile2, strLine1, strLine2, strMatch
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile1 = fso.OpenTextFile("C:\CurrentDIR.txt", ForReading)
Set f = fso.OpenTextFile("C:\Files2Download.txt", ForWriting, True)

Do Until txtFile1.AtEndOfStream
strMatch = False
    strLine1 = txtFile1.Readline
Set txtFile2 = fso.OpenTextFile("C:\LOG.txt", ForReading)
        Do Until txtFile2.AtEndOfStream
            strLine2 = txtFile2.Readline
                If Trim(UCase(strLine2)) = Trim(UCase(strLine1)) Then
                    strMatch = True
                Else  
                End If    
        Loop
        txtFile2.Close
                If strMatch <> True then
                    f.writeline strLine1
                End If
Loop
f.Close
Wscript.Echo "Done"

------------------------------------------------------------

This works fine.
But,I have two/three conditions to be met here.
1. I want the textfiles NOT to be hardcoded.
2. I want this to be written as a function.
3. Also, my First file is static ie the first file is the expected result. My Other two files are generated during runtime. ie the 2nd file which would store Actual result and the 3rd file which would be the differences.


Like if my QAManager writes like this , it should work.
Call FnComptext(tf1,tf2).
It should compare and store the diff in another file.

Plz Help.
Thanks a ton,
Josh Q