Hapus File yang sama di listbox

Bagaimana jika ada file yang sama dalam listbox , mungkin jika hanya 1 atau 2 file yang sama kita bisa menghapusnya satu per satu , nah bagaimana jika ada 100 atau 1000 .
apa mau sobat semua menghapus file nya satu persatu , sungguh membuang waktu dan tenaga bukan ?? 



Oleh karena itu saya akan membahas bagaimana cara menghapus file yang sama dalam sebuah listbox , atau bisa dikatakan kita akan menghapus duplikat file   


Ok langsung saja ke TKP ( ahaha udda kaya pembunuhan aja  ) 

Public Sub HapusDuplicate(AxAlfa As ListBox)

     Dim I As Integer
     Dim J As Integer

     With AxAlfa
          For I = 0 To .ListCount - 1
                   For J = .ListCount To (I + 1) Step -1
                         If .List(J) = .List(I) Then
                             .RemoveItem J
                         End If
                   Next
          Next
      End With

End Sub

Misalkan kita akan menghapus file yang sama dalam list1 .
kita tinggal menuliskan HapusDuplicate list1


Contoh.
Perintah hapus di tuliskan di command button dengan property nama "HapusDuplikat"

Private Sub HapusDuplikat_Click()
       HapusDuplicate list1
End Sub

mudah-mudahan postingan ini dapat menjawab pertanyaan dari sahabat blogger dan berguna juga untuk yang lain..

selamat mencoba...