Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Application Security Testing: An Integral Part of DevOps

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