• Home
 · 
• Files/File Controls/Input/Output
 · 
• Boolean function that compares two files to see if they are identical

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.

Rate Boolean function that compares two files to see if they are identical

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

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