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
|
