با استفاده از کد زیر میتونید ساختار دوتا فایل و با هم مقایسه کنید
[codesyntax lang=”vbnet”]Sub FilesAreIdentical(strFile1 As String, strFile2 As String) As Boolean If File.Size("", strFile1) <> File.Size("", strFile2) Then Return False Dim in1 As InputStream Dim in2 As InputStream (in1 = File.OpenInput("", strFile1 (in2 = File.OpenInput("", strFile2 Dim buffer1(File.Size("", strFile1)) As Byte Dim buffer2(File.Size("", strFile2)) As Byte (in1.ReadBytes(buffer1, 0, buffer1.length (in2.ReadBytes(buffer2, 0, buffer2.length Dim data1(buffer1.Length) As Byte Dim data2(buffer2.Length) As Byte Dim md As MessageDigest ("data1 = md.GetMessageDigest(buffer1, "MD5 ("data2 = md.GetMessageDigest(buffer2, "MD5 Dim Bconv As ByteConverter ((Return ( Bconv.HexFromBytes(data1) = Bconv.HexFromBytes(data2 End Sub[/codesyntax]