Membandingkan dua buah file di Visual Basic

Sering kita mempunyai file – file yang sama tapi cuma berbeda nama, seperti koleksi lagu kita. Ini tentunya merupakan pemborosan space harddisk dan hanya membingungkan kita dalam menata file – file kita. Tentu kita ingin ada cara cepat mengetahui apakah file – file yang kita miliki memiliki duplikat. Kali ini akan dicontohkan sebuah fungsi sederhana dalam membandingkan dua buah file.
Topik kali ini masih berhubungan dengan sebelumnya, kita akan memanggil fungsi HitungFileChecksum() untuk setiap file dan membandingkan checksumnya.

Fungsi berikut ini menggunakan HitungChecksum() pada dua buah file yang dicurigai dan membandingkan hasil checksumnya:

Public Function FileKembar( _

ByVal file1 As String, ByVal file2 As String) _

As Boolean

' ----- Mengembalikan True bila dua file identik.

Dim checksum1 As Byte( )

Dim checksum2 As Byte( )

Dim counter As Integer

On Error GoTo ErrorHandler

' ------ Menghitung checksums.

checksum1 = HitungFileChecksum(file1)

checksum2 = HitungFileChecksum(file2)

' ----- Membandingkan checksum dua buah file

For counter = 0 To UBound(checksum1)

If (checksum1(counter) <> checksum2(counter)) _

Then Return False

Next counter

' ----- Hasil checksum identik

Return True

ErrorHandler:

' ----- Jika terdapat kesalahan maka file tersebut tidak sama

Return False

End Function