you might use this as a starting point, its nowhere near bullet proff yet ;-)
Private Sub Command1_Click()
Dim iInFile1 As Integer
Dim iInFile2 As Integer
Dim iOutFile As Integer
Dim iLineCount As Integer
Dim sLine1 As String
Dim sLine2 As String
Dim sInFilename1 As String
Dim sInFilename2 As String
Dim sOutFilename As String
iInFile1 = 1
iInFile2 = 2
iOutFile = 3
sInFilename1 = "C:\jim1.txt" 'source file
sInFilename2 = "C:\jim2.txt" 'source file
sOutFilename = "C:\outjim.txt" 'file to hold diffs
On Error GoTo close_files
Open sInFilename1 For Input As iInFile1
Open sInFilename2 For Input As iInFile2
Open sOutFilename For Output As iOutFile
iLineCount = 1
While Not EOF(iInFile1)
Line Input #iInFile1, sLine1
'ensure we don't run out of lines in second source file
If Not EOF(iInFile2) Then
Line Input #iInFile2, sLine2
If StrComp(sLine1, sLine2) <> 0 Then
Print #iOutFile, "Line:"; iLineCount; " "; sInFilename1
Print #iOutFile, sLine1
Print #iOutFile, "Line:"; iLineCount; " "; sInFilename2
Print #iOutFile, sLine2
End If
Else
Print #iOutFile, "Line:"; iLineCount; " in file: "; sInFilename1
Print #iOutFile, sLine1
Print #iOutFile, "line not in file:"; sInFilename2
End If
iLineCount = iLineCount + 1
Wend
' ensure we process all lines if second source file has more lines
If Not EOF(iInFile2) Then
While Not EOF(iInFile2)
Line Input #iInFile2, sLine2
Print #iOutFile, "Line:"; iLineCount; " in file: "; sInFilename2
Print #iOutFile, sLine2
Print #iOutFile, "line not in file: "; sInFilename1
iLineCount = iLineCount + 1
Wend
End If
close_files:
Close iInFile1
Close iInFile2
Close iOutFile
End Sub