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.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine