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
        Else
            Dim intByteF1 As Integer
            Dim intByteF2 As Integer
            Do
                intByteF1 = objFS1.ReadByte()
                intByteF2 = objFS2.ReadByte()
                If intByteF1 <> intByteF2 Then
                    blnIdentical = False
                    Exit Do
                End If
            Loop While (intByteF1 <> -1)
        End If
        objFS1.Close()
        objFS2.Close()
        Return blnIdentical
    End Function

    Public Shared Sub Main()
        If CompareFiles("1.jpg", "2.bmp") Then
            System.Console.WriteLine("Files are identical!")
        Else
            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