Check Files Are Identical : Binary File Read « File Directory « VB.Net

Check Files Are Identical


Public Class MainClass
    Public Shared Function CompareFiles(ByVal File1 As String, ByVal File2 As String) As Boolean
        Dim blnIdentical As Boolean = True
        Dim objFS1 As System.IO.FileStream = New System.IO.FileStream(File1, System.IO.FileMode.Open)
        Dim objFS2 As System.IO.FileStream = New System.IO.FileStream(File2, System.IO.FileMode.Open)
        If (objFS1.Length <> objFS2.Length) Then
            blnIdentical = False
            Dim intByteF1 As Integer
            Dim intByteF2 As Integer
                intByteF1 = objFS1.ReadByte()
                intByteF2 = objFS2.ReadByte()
                If intByteF1 <> intByteF2 Then
                    blnIdentical = False
                    Exit Do
                End If
            Loop While (intByteF1 <> -1)
        End If
        Return blnIdentical
    End Function

    Public Shared Sub Main()
        If CompareFiles("1.jpg", "2.bmp") Then
            System.Console.WriteLine("Files are identical!")
            System.Console.WriteLine("Files do not match!")
        End If
    End Sub
End Class


Related examples in the same category

1.Reading a sequential-access fileReading a sequential-access file
2.Read and Write Binary file: int, string Read and Write Binary file: int, string
3.Read from a binary fileRead from a binary file
4.BinaryReader.Read reads the specified number of characters from the stream
5.BinaryReader.ReadByte reads the next byte from the current stream
6.BinaryReader.ReadBytes reads the specified number of bytes
7.BinaryReader.ReadChar reads the next character from the stream