Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 14, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

CompareFiles - Comparing two binary/text files

' Returns a boolean indicating whether two files are equal
' Example: Debug.WriteLine(CompareFiles("D:\File1.mdb", "D:\File2.mdb"))

Function CompareFiles(ByVal path1 As String, ByVal path2 As String) As Boolean
    Dim file1 As New System.IO.FileInfo(path1)
    Dim file2 As New System.IO.FileInfo(path2)
    Dim stream1, stream2 As System.IO.FileStream

    ' if the length of the 2 files is different, return False
    If file1.Length <> file2.Length Then Return False

        ' open the two files in read mode
        stream1 = file1.OpenRead()
        stream2 = file2.OpenRead()
        Dim i As Integer
        ' check whether all bytes are equal
        For i = 0 To stream1.Length
            If stream1.ReadByte() <> stream2.ReadByte Then
                Return False
            End If
        ' if not already exited at this point, the two files are equal
        Return True
    Catch e As Exception
        Return False
        ' be sure to close the file before exiting the function
        If Not stream1 Is Nothing Then stream1.Close()
        If Not stream2 Is Nothing Then stream2.Close()
    End Try
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date