Pilih Beberapa File (VB 6.0)

Ini ada lagi yang ingin saya bagikan untuk Anda yang saya namakan Pilih Beberapa File pada VB 6.0 (Visual Basic 6.0). Baiklah kita langsung saja ke TKP.

Berikut langkah pembuatannya.

1. Tambahkan 1 Commandbutton dan atur Properties Caption=Pilih File, Name=Command1. 
2. Tambahkan 1 Listbox dan atur Properties Name=List1. 
3. Tambahkan 1 Commondialog dengan cara pilih menu Project > Components dan centang Microsoft Dialog Control 6.0. Lalu klik OK.
4. Double click tombol Pilih File dan masukkan kode berikut ini ke dalam Command1_Click().

On Error GoTo Ero
Dim sFile() As String, i As Integer

With CommonDialog1
.FileName = ""
.CancelError = True
.MaxFileSize = 30000
.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect + cdlOFNHideReadOnly
.ShowOpen

sFile = Split(.FileName, vbNullChar)

List1.Clear 'meghapus isi listbox

If UBound(sFile) = 0 Then 'jika hanya 1 file yang dipilih
List1.AddItem sFile(0)
Else 'jika lebih dari 1 file yang dipilih
For i = 1 To UBound(sFile)
List1.AddItem Replace(sFile(0) & "\" & sFile(i), "\\", "\")
Next
End If

End With

Ero:
    If Err.Number <> 0 Then MsgBox Err.Description

5. Selesai dan jalankan programnya.

Sekarang download contohnya disini atau disini.