Yo utilizo este procedimiento
Public Function AbrirArchivoFD(Optional strRutaInicio As String, Optional strTipoArchivos As String, Optional strTitulo As String, Optional strBoton As String) As String
Dim fd As Object 'Office.FileDialog
Const msoFileDialogFilePicker = 3
On Error GoTo AbrirArchivoFD_TratamientoErrores
Set fd = Application.FileDialog(msoFileDialogFilePicker)
' verifico la existencia de la ruta y en su defecto utilizo la carpeta actual
If Nz(strRutaInicio, vbNullString) = vbNullString Or Len(Dir(strRutaInicio, vbDirectory)) = 0 Then
strRutaInicio = CurrentProject.Path
End If
' si la ruta no acaba en contrabarra la añado
If Not Right(strRutaInicio, 1) = "\" Then strRutaInicio = strRutaInicio & "\"
' título del cuadro de díalogo
If Nz(strTitulo, vbNullString) = vbNullString Then strTitulo = "Seleccione un archivo"
' título del botón
If Nz(strBoton, vbNullString) = vbNullString Then strBoton = "Abrir"
With fd
.AllowMultiSelect = False
.InitialFileName = strRutaInicio
.Title = strTitulo
.ButtonName = strBoton
.Filters.Clear
.Filters.Add "Todos los Archivos", "*.*", 1
If Nz(strTipoArchivos, vbNullString) = vbNullString Then
.FilterIndex = 1
Else
.Filters.Add "Bases de datos de Microsoft Office Access", "*.mdb; *.mde; *.accdb; *.accde", 2
.FilterIndex = 2
End If
If .Show Then
AbrirArchivoFD = .SelectedItems(1)
End If
End With
AbrirArchivoFD_Salir:
Set fd = Nothing
On Error GoTo 0
Exit Function
AbrirArchivoFD_TratamientoErrores:
MsgBox "Error " & Err & " en proc.: AbrirArchivoFD de Módulo: mdlAbriArchivo (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume AbrirArchivoFD_Salir
End Function ' AbrirArchivoFD
AllowMultiSelect permite seleccionar varios archivos, pero en ese caso habrás de recorrer la colección .SelectedItems para extraer todos los archivos seleccionados, de la ayuda:
For Each varFile In .SelectedItems
Me.FileList.AddItem varFile
Next
Saludos a todos desde Huelva
http://www.mvp-access.es/emilio/
