Pencarian 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 : 8-)

@desain

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


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……