如何比较两个文件

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