CompareFiles – Comparing two binary/text files

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    Try        ' 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        Next        ' if not already exited at this point, the two files are equal        Return True    Catch e As Exception        Return False    Finally        ' 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 TryEnd Function

See also  Redefining Energy Management: Advanced Solutions for Modern Buildings

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist