Mengelola File pada Visual Basic

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 :

1. Buat Proyek baru dan pasangkan ketiga kontrol tersebut, seperti gambar dibawah ini:
   

2. 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.

3. Klik ganda kontrol DirListBox, dan tuliskan kode berikut ini.

Private Sub Dir1_Change()

File1.Path = Dir1.Path

EndSub

4. 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.
   

5. 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 :

Related Posts:

• Penggunaan Fungsi Pengubah Kata/Tulisan pada LaTex Buka Program aplikasi Latex yang telah diinstall seperti gambar disamping hingga tampil laman awal pada program seperti gambar dibawah. Kemudian create new project. Masukkan kodingan seperti gambar dibawah. \documentcl… Read More
• Penggunaan Struktur Program pada C++ a. Biodata #include<iostream.h> merupakan header yang melibatkan objek input output seperti cin dan cout. #include<conio.h> merupakan header yang biasanya digunakan bersama fungsi getch() yang berfungsi sebagai … Read More
• Penggunaan Case dan If pada Visual Basic 1. Penggunaan Case Buatlah interface program seperti gambar disamping. Kemudian klik 2 kali pada text box operator untuk memasukkan kodingan. Masukkan kodingan seperti gambar disamping. Kita misalkan text1 dan text2 adala… Read More
• Membuat Daftar Isi pada LaTex Buatlah kodingan seperti gambar dibawah ini. \documentclass berfungsi untuk menentukan layout halaman yang diikuti dengan spesifikasi ukuran kertas adalah A4 dengan ukuran font adalah 12pt. Jenis dari tulisan ini adalah a… Read More
• Perintah Dasar pada LINUXBerikut ini adalah beberapa perintah yang bisa digunakan di sistem operasi Ubuntu pada mode CLI, baik Desktop maupun Server, yang juga banyak untuk bisa digunakan pada distro yang lain.1. sudo suDigunakan untuk login sebagai … Read More