Cara memilih beberapa File pada kotak Common Dialog di VB 6.0

Cara memilih beberapa File pada kotak Common Dialog di VB 6.0

Berikut ini adalah tips bagaimana agar user dapat memilih beberapa file sekaligus dalam kotak dialog.

Bagi anda yang ingin membuat media player atau aplikasi lain di VB 6.0 yang membutuhkan Common Dialog Control. Pasti menginginkan Common Dialog atau yang sering disebut CD ini memblok beberapa file sekaligus atau semua file dalam satu folder lalu file tersebut di letakan dalam satu daftar. Nah oleh karena itu saya akan member tau cara memilih beberapa file ke kotak CD di Visual Basic 6.0 ini.

Daripada kelamaan mending langsung aja saya kasih tau.

Seperti ini :

Pertama – tama Berikan  1 buah Common Dialog, 1buah Command Button

dan 1 Buah ListBox ( sebagai tempat penampung daftar Filenya )

Lalu di bagian Command Button Click nya berikan koding dibawah ini :

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)

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 (sFile(0) & “\” & sFile(i), “\\”, “\”)

Next

End If

End With

Selesai tekan F5 untuk mengetes Program anda.