Fungsi Untuk Mengisi Listbox Dengan Seluruh File dengan Kode VB6

Pada pertemuan kali ini tipandtrickunikvb akan akan berbagi kode tentang cara mengisi sebuah Listbox dengan seluruh file dari sebuah directory yang telah kita tentukan. Misalnya dalam artikel ini saya akan mengisi sebuah Listbox dengan file C:\Windows\System32\.

Berikut dibawah ini adalah contoh output dari hasil kode yang saya akan bagikan dengan menampilkan seluruh file yang ada di system32 kedalam sebuah listbox :

Output

Untuk membuat Form output diatas langkah-langkahnya adalah sebagai berikut :

1. Buka Form VB6 pilih standar EXE

2. Pada Form tanamkan sebuah Listbox dan Commandbutton

3. Kemudian Anda copy kode dibawah ini :

Function LoadFilesToList(FileName As String, lst As ListBox, Optional Attrib As VbFileAttribute)

    Dim sNextFile As String

    sNextFile = Dir$(FileName, Attrib)

    While sNextFile <> ""

        If sNextFile <> "." And sNextFile <> ".." Then

            lst.AddItem sNextFile

        End If

        sNextFile = Dir$

    Wend

End Function

Private Sub Command1_Click()

     LoadFilesToList "C:\Windows\System32\*", List1, vbArchive + _

     vbDirectory + vbSystem

    'mengenai vbArchive + vbDirectory + vbSystem optional, boleh _

    diisi atau tidak tergantung kebutuhan

End Sub

Kemudian jalankan kode Anda, jika tidak ada error maka hasilnya akan tampak pada gambar diatas.

Demikianlah trik dari saya tentang cara Fungsi Untuk Mengisi Listbox Dengan Seluruh File dengan Kode VB6, semoga artikel ini bermanfat buat kita semua.Amin.

Selamat mencoba semoga berhasil....

Related Post: File Directory