25.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

比较两个文件
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