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
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
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
Muchisimas gracias me ha venido de perlas, un saludo y gracias de nuevo