Una funzione utile per comparare due files
Function ComparaFile(File1 As String, File2 As String) As Boolean Dim Tmp1 As Long Dim Tmp2 As Long Dim TmpBuff1 As String Dim TmpBuff2 As String Dim NumFile1 As Integer Dim NumFile2 As Integer Dim Start As Long Dim X As Long NumFile1 = FreeFile Open File1 For Binary As #NumFile1 NumFile2 = FreeFile Open File2 For Binary As #NumFile2 ComparaFile = True If LOF(NumFile1) <> LOF(NumFile2) Then ComparaFile = False Else Tmp1 = LOF(1) \ 10000 Tmp2 = LOF(1) Mod 10000 TmpBuff1 = String$(10000, 0) TmpBuff2 = String$(10000, 0) Start = 1 For X = 1 To Tmp1 Get #1, Start, TmpBuff1 Get #2, Start, TmpBuff2 If TmpBuff1 <> TmpBuff2 Then ComparaFile = False Exit For End If Start = Start + 10000 Next TmpBuff1 = String$(Tmp2, 0) TmpBuff2 = String$(Tmp2, 0) Get #1, Start, TmpBuff1 Get #2, Start, TmpBuff2 If TmpBuff1 <> TmpBuff2 Then ComparaFile = False End If End If Close End Function |