VB6 Code - Fungsi Untuk Mengisi ListBox Dengan Seluruh File

Di bawah ini merupakan fungsi VB6 untuk mengisi Listbox dengan seluruh file, maksudnya (karena judul tersebut kurang lengkap) fungsi untuk mengisi ListBox dengan file-file dari sebuah directory yang telah ditentukan.

Fungsi untuk mengisi ListBox dengan seluruh file:

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

Contoh Penggunaan fungsi untuk mengisi ListBox dengan seluruh file:

Private Sub Command2_Click()
     LoadFilesToList "C:\Windows\System32\*", List1, vbArchive + _
     vbDirectory + vbSystem
    'mengenai vbArchive + vbDirectory + vbSystem optional, boleh _
    diisi atau tidak tergantung kebutuhan
End Sub