Access - Captar carpeta

Hola,
Si alguien quiere ayudarme...
Estoy haciendo una pequeña utilidad para instalar mis programas de Access en una carpeta seleccionada previamente (La idea final es que nadie pueda copiar mi utilidad en otro ordenador). Todo está bién pero me encuentro atascado en una cosa que debería ser sencilla pero que nunca he necesitado hacerlo, que es captar una carpeta de destino mediante un cuadro de dialogo. Solo la carpeta sin archivo.

Este es un ejemplo de como capto el Archivo.MDB a instalar
Pero ¿Como lo hago para captar SOLO una carpeta de destino?

Function CogeOrigen() As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = "Pa3 - Selecciona el archivo a instalar"
.InitialView = msoFileDialogViewPreview 'para vista previa, si la tiene
.InitialFileName = "*.MDB" 'filtro
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems

CogeOrigen = vrtSelectedItem ' = Ruta completa path+archivo+extension

Next vrtSelectedItem 'seguiria si AllowMultiSelect = True
Else
'Si cancela salimos
End If
End With

Set fd = Nothing

'MsgBox (CogeOrigen) 'OK correcto.

End Function

Saludos
Patres.

En tu definición Set fd = Application.FileDialog(msoFileDialogFilePicker)
deberías cambiarla por set fd = Application.FileDialog(msoFileDialogFolderPicker)
Creo que eso es lo que estás consultando.

Gracias por tu respuesta ClaudioBA,

Creo que no he explicado bien lo que quiero hacer. Paso a explicarlo mejor:
Mediante un cuadro de dialogo elijo MiArchivo.MDB (Incluyendo la ruta) y al pulsar Aceptar para salir del Cuadro de dialogo se debe abrir otro Cuadro de dialogo de CopiarComo para copiar MiArchivo.MDB en la carpeta que elija.

Estoy buscando un ejemplo para saber como se hace. Porque en la ayuda de Access no soy capaz de encontrarlo.

(Como aclaración… En medio de todo esto capto datos de la máquina y los grabo para cuando se ejecute MiArchivo.MDB compruebe si está en el ordenador que se instaló)

Saludos
Patres.

Hola,
A quien le interese.
Parece que en Access es imposible encontrar alguna información sobre este tema pero he encontrado una utilidad hecha por el gran Buho que me ha sacado del apuro. ¡GRACIAS BUHO!.
Quien la necesite puede, visitando la web de Buho, buscar la utilidad "GuardarComo".

Saludos
Patres