VB : Pencarian File – List

Agustus 23, 2008 in Belajar, Programming, Umum
Tags: cari, file, list

VB : Pencarian File – List

Memang, trik berikut ini menurut ku salah satu trik yang cukup sederhana. Namun ternyata, hal ini ditanyakan oleh beberapa teman ku. Sehingga, datang ide untuk mempostingnya, agar teman-teman lain, yang memiliki problem yang sama, dapat menggunakannya.

Cara kerjanya, kita melakukan pencarian pada komponen File List yang sudah disediakan oleh Visual Basic. Sebelum melakukan pencarian, tentunya kita sesuaikan dulu Lokasi Drive dan Foldernya.

Desain Form, dapat kita susun sebagai berikut :

Kemudian, tuliskan source code program berikut ini :

Private Sub Command1_Click() Dim Data, i As Byte Data = File1.ListCount – 1 For i = 0 To Data If LCase(File1.List(i)) = LCase(Text1.Text) Then File1.Selected(i) = True Exit Sub End If Next i MsgBox "Data Tidak Ditemukan…", , "Info Pencarian" End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

Dan hasilnya, ketika kita eksekusi, sebagai berikut :

Hanya saja, program ini hanya mampu mencari file yang terdapat pada File List. Artinya, jika file tersebut didalam sub folder yang tidak muncul di File List, file tersebut dianggap tidak ada. Semoga berhasil……