Contoh Multiselect CommonDialog Control Menggunakan VB6

Sering kita dihadapkan dengan situasi pada saat kita open file akan tampila jendela dialog control open file, akan terlihat sangat menjengkelkan jika akses file hanya bisa open file 1 file saja, padahal kita memerlukan menampilkan beberapa file seperti contoh gambar dibawah ini

Pada kesempatan posting artikel kali ini admin akan membahas multiselect pada komponen CommonDialog Control menggunakan Visual Basic 6.0 (VB6). Langsung saja buka Microsoft Visual Basic 6.0 - StandartExe - Form1 dan tambahkan componen CommonDialog Control, 2 buah ListBox, CommondButton dan Label seperti dibawah ini

Pada CommandButton Cari File double klik dan copikan syntak dibawah ini

On Error GoTo ErrHandler
Dim vFiles As Variant
Dim lFile As Long

With CommonDialog1
    .FileName = ""
    .CancelError = True
    .DialogTitle = "Pilih File"
    .Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNHideReadOnly
    .Filter = "All files (*.*)|*.*"
    .ShowOpen
    vFiles = Split(.FileName, Chr(0))
    If UBound(vFiles) = 0 Then
        List1.AddItem .FileName
        List2.AddItem .FileTitle
    Else
        For lFile = 1 To UBound(vFiles)
            List1.AddItem vFiles(0) + "\" & vFiles(lFile)
            List2.AddItem vFiles(lFile)
        Next
    End If
End With

Exit Sub
ErrHandler:
If Err <> cdlCancel Then
    MsgBox Err.Description
End If

Simpan kemudian RUN/F5, klik CommandButton Cari File pilihlah beberapa file menggungkan SHIFT atau CTRL pada keyboard setelah itu klik Open. Maka file dan path yang anda pilih tampil pada ListBox seperti gambar dibawah ini

Bagi yang berminat untuk mendownload sourcode ini silahkan klik pada LINK INI dan semoga artikel Contoh Multiselect CommonDialog Control Menggunakan VB6 dapat bermanfaat