¿Como puedo hacer en access que el explorador abra en otra carpeta diferente a la que se encuentra la base de datos?

Este módulo es el que tengo en mi base:

Option Compare Database
Option Explicit
Public Function buscaArchivo() As String
Dim fDialog As Office.FileDialog
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False
.ButtonName = "Seleccionar"
.Title = "Seleccionar el archivo"
.InitialFileName = Application.CurrentProject.Path
.InitialView = msoFileDialogViewDetails
.Filters.Clear
.Filters.Add "All Files", "*.*"
If .Show = True Then
buscaArchivo = .SelectedItems(1)
Else
MsgBox "Ha pulsado el botón <Cancelar>."
End If
End With
End Function

Tengo este código en un botón de comando para abrir el explorador de archivos

Private Sub cmdCROQUIS_Click()
Dim vCROQUIS As String
    vCROQUIS = buscaArchivo()
    If IsNull(vCROQUIS) Or vCROQUIS = "" Then
       Exit Sub
    Else
        Me.CROQLOC.Value = vCROQUIS
    End If
End Sub

Pero al abrir el explorador este abre en la carpeta donde se encuentra la base de datos.

¿Cómo puedo corregir eso?

1 respuesta

Respuesta
1

¿Has probado con

.InitialFileName = "C:\users\gonza\documentos\Borrar"

Es decir, ponle la ruta a la subcarpeta donde quieres que se abra.

¡¡¡Muchísimas Gracias Julían González Cabarcos, habían pasado más de 4 años y no había encontrado la respuesta!!! ¡¡¡De verdad mi hiciste el día!!!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas