"打开"对话框怎么打开多个文件?

Question

打开对话框默认只能打开一个文件
怎么设置可以打开多个文件?
就是像播放器那样可以同时导入多个mp3

Answer 1

CDLOg.Flags = &H204 Or &H80000
CDLOg.ShowOpendebug.print cdlog.filename

Answer 2

Private Sub Command1_Click()
    Dim i As Integer, title As String, FileNames As String
    Dim sFile() As String
    
    ComDialogFax.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames
    ComDialogFax.Filter = "All Excel Files (*.xls)|*.xls|All files (*.*)|*.*"
    ComDialogFax.FilterIndex = 1
    ComDialogFax.InitDir = "C:\"
    ComDialogFax.FileName = ""
    ComDialogFax.CancelError = False
    ComDialogFax.ShowOpen
    
    i = InStrRev(ComDialogFax.FileName, "\") '
    title = Left(ComDialogFax.FileName, i) ' Ä¿Â¼
    FileNames = Mid(ComDialogFax.FileName, i + 1) ' all selectes files
    
    sFile = Split(FileNames, vbNullChar)
    
    For i = 0 To UBound(sFile)
        If sFile(i) <> vbNullString Then MsgBox sFile(i)
    Next i
 End Sub

Answer 3

ComDialogFax.Flags = cdlOFNAllowMultiselect 
可是我用了上面这个后
只能添加多个文件
添加单个就不可以了
怎么办啊?