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