Mega Code Archive

 

Categories / VB.Net / File Directory

 

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