Contoh Program Menggunakan Objek Drivelistbox, Dirlistbox Dan Filelistbox Pada Microsoft Visual Basic 6.0

Sebelum kita masuk dalam pembuatan program, ada baiknya saya menjelaskan secara singkat mengenai penggunaan (aplikasi) objek DriveListBox, DirListBox dan FileListBox pada Microsoft Visual Basic 6.0, yaitu sbb :

DriveListBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan drive pada suatu harddisk yang terpasang pada sebuah komputer.

DirLsitBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan direktori atau folder dalam sebuah drive.

FileListBox digunakan untuk membuat objek yang dapat mengenali dan menampilkan file pada suatu direktori atau folder.

 

Langkah – langkah pembuatan program dengan menggunakan objek DriveListBox, DirListBox dan FileListBox adalah sbb :

·     Buka proyek Standard EXE yang baru

·     Disain tampilan form seperti gambar berikut dengan menggunkan objek DriveListBox, DirListBox dan FileListBox, TextBox dan Label

 

   Gbr 1

Gbr 2

·    Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Caption	txt_FileName (dikosongkan)
CommandButton1	Name         Caption	cmd_exit E&xit
Label1	Caption	File Name :

·   Ketik kode Program (Source Code) dibawah ini :

Dim FileName As String

Private Sub cmd_exit_Click()

End

End Sub

Private Sub Dir1_Change()

Me.File1.Path = Me.Dir1.Path

End Sub

Private Sub Drive1_Change()

Me.Dir1.Path = Me.Drive1.Drive

End Sub

Private Sub File1_Click()

If (Right(Me.File1.Path, 1) = "\") Then

    FileName = Me.File1.Path + Me.File1.FileName

    Else

    FileName = Me.File1.Path + "\" + Me.File1.FileName

End If

Me.txt_FileName.Text = FileName

End Sub

·     Jalankan program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·     Hasilnya Ketika program dijalankan

 

 

Gbr 3

Download Program DriveListBox_DirListBox_FileListBox  disini