common dialog abrir/seleccionar mas de un fichero

[luiski]

Hola colegas se podria hacer que a la hora de abrir/seleccionar desde la ventana de apertura de un common dialog, poder seleccionar mas de un fichero a la vez??? gracias, un saludo

[CeLaYa]

lo puedes hacer con la propiedad "Flags"

            On Local Error Resume Next
            With CommonDialog1
                .Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0
                        MsgBox .FileName ' archivos seleccionados
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With

[CeLaYa]

hay te va el codigo mejorado

            Dim s() As String, i As Integer
           
            On Local Error Resume Next
            With CommonDialog1
                .Flags = cdlOFNAllowMultiselect
                .Filter = "Todos los archivos | *.*"
                .ShowOpen
                Select Case Err.Number
                    Case 0 ' archivos seleccionados
                        s = Split(.FileName, " ")
                        For i = 1 To UBound(s)
                            MsgBox s(0) & s(i)
                        Next i
                    Case 32755
                        ' selecciono cancelar
                    Case Else
                        MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Error al abrir"
                End Select
            End With
            On Local Error GoTo 0

[luiski]

Muchisimas gracias me ha venido de perlas, un saludo y gracias de nuevo