Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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 Try
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap