比较两文件是否相同

 1Dim file1byte As Integer
 2        Dim file2byte As Integer
 3        Dim fs1 As FileStream
 4        Dim fs2 As FileStream
 5        '判断是否相同的文件被参考两次
 6        If (file1 = file2) Then
 7            Return True
 8        End If
 9        '判断文件大小是否相同,如果不同则不同
10        fs1 = New FileStream(file1, FileMode.Open)
11        fs2 = New FileStream(file2, FileMode.Open)
12        If (fs1.Length <> fs2.Length) Then
13            fs1.Close()
14            fs2.Close()
15            Return False
16        End If
17        '比较两个文件的每一个数组,知道不相等或到达文件尾为止
18        file1byte = fs1.ReadByte()
19        file2byte = fs2.ReadByte()
20        While ((file1byte = file2byte) And (file1byte <> -1))
21
22        End While
23        fs1.Close()
24        fs2.Close()
25        Return True

一个简单的程序，比较两文件是否相同，很早以前的代码。