比较两个文件
Function CompFile(F1 As String, F2 As String) As Boolean
Dim issame As Boolean
Open F1 For Binary As #1
Open F2 For Binary As #2
issame = True
If LOF(1) <> LOF(2) Then
issame = False
Else
whole& = LOF(1) \ 10000 ＇number of whole 10,000 byte chunks
part& = LOF(1) Mod 10000 ＇remaining bytes at end of file
buffer1$ = String$(10000, 0)
buffer2$ = String$(10000, 0)
start& = 1
For x& = 1 To whole& ＇this for-next loop will get 10,000
Get #1, start&, buffer1$ ＇byte chunks at a time.
Get #2, start&, buffer2$
If buffer1$ <> buffer2$ Then
issame = False
Exit For
End If
start& = start& + 10000
Next
buffer1$ = String$(part&, 0)
buffer2$ = String$(part&, 0)
Get #1, start&, buffer1$ ＇get the remaining bytes at the end
Get #2, start&, buffer2$ ＇get the remaining bytes at the end
If buffer1$ <> buffer2$ Then
issame = False
End If
Close
CompFile = issame
End Function