1. Menampilkan File
- Untuk menampilkan file, perlu membuka direktori
penyimpanannya.
- File disimpan pada susunan bertingkat-tingkat
dan akan lebih mudah apabila organisasi file menggunakan model diagram pohon
untuk menempilkan tingkat-tingkat direktori. Seperti
pada File Manager atau Windows explorer.
VB 6 menyediakan beberapa kontrol untuk
kebutuhan tersebut yaitu :
- File
Listbox, untuk menampilkan semua file pada direktori yang sedang dibuka.
- DirList
Box, untuk menampilkan semua direktori atau folder pada drive yang
sedang diaktifkan.
- DriveList
Box, untuk menampilkan semua drive yang terdapat pada computer.
Ketiga
kontrol pada pemakaiannya saling terkait sesuai hirarkinya.
- Pertama DriveListBox,
dibawahnya DirListBox dan terakhir FileListBox.
- Perubahan informasi pada DriveListBox akan menyebabkan perubahan pada kedua kontrol
ditingkat bawahnya yaitu: DirListBox dan FileListBox
- Sebaliknya perubahan pada FileListBox tidak akan mempengaruhi kedua Kontrol yang tingkatnya
berada diatasnya.
Contoh Program :
- Buat
Proyek baru dan pasangkan ketiga kontrol tersebut, seperti gambar dibawah
ini:
- Klik
ganda kontrol DriveListBox dan untuk mengaitkan ketiganya sehingga bisa
bekerja secara normal, tuliskan kode berikut ini.
Private
Sub Drive1_Change()
Dir1.Path
= Drive1.Drive
EndSub
Kode
diatas berarti perubahan yang terjadi di kontrol drive harus diikuti oleh
kontrol direktori.
- Klik
ganda kontrol DirListBox, dan tuliskan kode berikut ini.
Private
Sub Dir1_Change()
File1.Path
= Dir1.Path
EndSub
- Jalankan
program. Hasilnya adalah Jika
mengubah drive, maka seluruh informasi pada direktori dan drive juga akan
berubah. Dan perubahan pada direktori (DirListBox) akan diikuti oleh
FileListBox.
- Klik
ganda kontrol FileListBox, lalu tuliskan kode berikut :
Private Sub File1 _Click()
MsgBox “
Anda sedang klik pada File: “& File1.Path&”\”&File1.Filename
EndSub
Kemudian
jalankan program, klik salah satu file, program akan memberikan tanggapan
seperti berikut :
Cara Lain Menampilkan File
Selain
dengan kontrol FileListBox kita bisa menampilkan nama file pada tempat lain
misalnya pada kontrol-kontrol seperti TextBox, ListBox, Label atau Form.
Sarana
yang digunakan adalah fungsi Dir$(N,A), Argumen fungsi ini ada dua yaitu :
-
N adalah Nama & Path File
-
A adalah Atribut File, Argumen ini tidak harus
digunakan.
Contoh :
Dim Pilihan as string
Pilihan = Dir$(“C:\*.txt”)
Print Pilihan
Kode diatas akan memilih sebuah file dengan
ekstensi .txt yang terletak di root direktori. File pertama yang ditemukan akan
ditampilkan pada form.
2. Menyaring File
Berdasarkan Ekstensi File
-
Kita
menginginkan agar hanya file jenis tertentu saja yang ditampilkan.
-
VB 6
memiliki fasilitas berupa properti pattern dari control FileListBox
-
Nilai
yang harus diisikan ke pattern adalah jenis ekstensi file. Contoh file eksekusi
: *.exe, File MS-Word : *.doc
-
Secara
default nilainya adalah *.*
-
Kalau
anda terpaksa menuliskan kode untuk pengubahan nilai tersebut, jangan lupa
untuk menambahkan pasangan tanda petik.
Berdasarkan Atribut File VVV
-
Kita
bisa menyaring file berdasarkan atribut file
-
File
dibedakan berdasarkan atributnya, antara lain archive, hidden, Read Only dan
system.
-
Semua
property tersebut telah tercantum pada Window Properties, anda tinggal
mengaktifkan dengan mengganti nilainya menjadi True.
Cara Lain Menampilkan File
Selain dengan kontrol FileListBox kita
bisa menampilkan nama file pada tempat lain misalnya pada kontrol-kontrol
seperti TextBox, ListBox, Label atau Form.
Sarana yang digunakan adalah fungsi
Dir$(N,A), Argumen fungsi ini ada dua yaitu :
-
N adalah
Nama & Path File
-
A adalah
Atribut File, Argumen ini tidak harus digunakan.
3. Menampilkan File pada Form
Langkahnya :
1.
Buat
Proyek baru, pasangkan sebuah tombol seperti gambar dibawah ini :
2.
Klik
ganda tombol, lalu isikan kode berikut :
Dim Pilihan as string
Pilihan = Dis$(“C:\*.txt”)
Print Pilihan
3.
Jalankan
program dan tekanlah tombol, hasilnya seperti berikut :
0 comments:
Post a Comment