Buenas, estyo haciendo un programita en el que uso el CommonDialog, pero esta pasando algo raro cuando mando llamar la ventana de abrir archivo, lo hace de manera normal (fig 1), pero cuando cuando le pongo que seleccione varios ficheros, me muestra una ventana al estilo de esas que se usaban en Win95 o 3.11 (fig 2)
fig 1
fig 2
el código que uso es el siguiente:
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
si alguien sabe porque pasa esto se les agradeceria mucho me explicarán