Problema con CommonDialog

[CeLaYa]

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

[karmany]

Tienes que poner en Flags lo siguiente:

Código [Seleccionar] Expandir

.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer

cdlOFNExplorer:Use the Explorer-like Open A File dialog box template. Works with Windows 95, Windows NT 4.0, or later versions.

[CeLaYa]

ok, muchas gracias