by Tom Parkison (8 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 7th September 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Compares files to see if they are the same or not.
Dim FileOneContents As String
Dim FileTwoContents As String
Open FileOne For Input As #1
FileOneContents = LOF(1)
Close #1
Open FileTwo For Input As #1
FileTwoContents = LOF(1)
Close #1
If FileOneContents = FileTwoContents Then
CompareFiles = True
Else
CompareFiles = False
End If
End Function