[RaggiTech]

كاتب الموضوع : AhmedEssawy

كود :

' ----------------------------------------
' Required Imports :
'
' System.IO
' ----------------------------------------
Private Function CompareFiles(ByVal file1 As String, ByVal file2 As String) As Boolean
'Set to true if the files are equal; false otherwise
Dim filesAreEqual As Boolean = False
With My.Computer.FileSystem
' Ensure that the files are the same length before comparing them line by line
If .GetFileInfo(file1).Length = .GetFileInfo(file2).Length Then
Using file1Reader As New FileStream(file1, FileMode.Open), _
file2Reader As New FileStream(file2, FileMode.Open)
Dim byte1 As Integer = file1Reader.ReadByte()
Dim byte2 As Integer = file2Reader.ReadByte()
' If byte1 or byte2 is a negative value, we have reached the end of the file
While byte1 > 0 And byte2 > 0
If (byte1 <> byte2) Then
filesAreEqual = False
Exit While
Else
filesAreEqual = True
End If
'Read the next byte
byte1 = file1Reader.ReadByte()
byte2 = file2Reader.ReadByte()
End While
End Using
End If
End With
Return filesAreEqual
End Function