VB : 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-)

Kemudian, tuliskan source code program berikut ini : 8-)

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

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s