请问COMMON DIALOG控件可不可以同时选取多个文件，并同时获得一个文件路径数组。

Question

我想实现合并方法 目前有方法可以一个一个添加进去 选取多个 然后自动合并 如何实现呢？

Answer 1

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 2

设置ComDialogFax.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNLongNames楼上正解