Boolean function that compares two files to see if they are identical
This boolean function simply reads in two files and compares them to see if they are the same. It returns true if they are and false if they aren't. I quickly wrote this up to compare text files against template files.
Original Author: Blake Pell
Code
Public Function compare_files(fileOne As String, fileTwo As String) As Boolean
Dim fileOneContent As String
Dim fileTwoContent As String
Dim temp As String
Open fileOne For Input As #1
Do Until EOF(1)
Line Input #1, temp
fileOneContent = fileOneContent + temp
Loop
Close #1
Open fileTwo For Input As #1
Do Until EOF(1)
Line Input #1, temp
fileTwoContent = fileTwoContent + temp
Loop
Close #1
If fileOneContent = fileTwoContent Then
compare_files = True
Else
compare_files = False
End If
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.