Mô Tả:
Đây là cách để chọn nhiều file trong hộp thoại Open File của CommonDialog.
Ví Dụ:
Public Sub addMultiFileSub()
‘C = CommonDialog
‘List1 = ListBox
C.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect
C.Filter = "Multimedia files (*.mp3;*.wav;*.mid)|*.mp3;*.wav;*.mid|All Files (*.*)|*.*"
C.MaxFileSize = 10000 'Kích thước bộ nhớ lưu số lượng bài hát
C.ShowOpen
If C.Filename = "" Then Exit Sub
Dim a As Variant
Dim P As Integer
a = Split(C.Filename, vbNullChar)
If UBound(a) = 0 Then
List1.AddItem C.Filename
Else
For P = 1 To UBound(a)
If Right(a(0), 1) <> "" Then a(0) = a(0) & ""
List1.AddItem a(0) + a(P)
Next
End If
C.Filename = ""
End Sub
(Theo http://www.caulacbovb.com)
Đây là cách để chọn nhiều file trong hộp thoại Open File của CommonDialog.
Ví Dụ:
Public Sub addMultiFileSub()
‘C = CommonDialog
‘List1 = ListBox
C.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect
C.Filter = "Multimedia files (*.mp3;*.wav;*.mid)|*.mp3;*.wav;*.mid|All Files (*.*)|*.*"
C.MaxFileSize = 10000 'Kích thước bộ nhớ lưu số lượng bài hát
C.ShowOpen
If C.Filename = "" Then Exit Sub
Dim a As Variant
Dim P As Integer
a = Split(C.Filename, vbNullChar)
If UBound(a) = 0 Then
List1.AddItem C.Filename
Else
For P = 1 To UBound(a)
If Right(a(0), 1) <> "" Then a(0) = a(0) & ""
List1.AddItem a(0) + a(P)
Next
End If
C.Filename = ""
End Sub
(Theo http://www.caulacbovb.com)