|
Se trata entonces de cargar la ruta completa en una variable e ir buscando caracteres \ hasta el último.
omo ejemplo, crea un nuevo módulo, le pegas lo siguiente, pones el cursor en medio de la función y pulsas F5
Sub kk()
Dim i%, j%, bd$, path$
path = CurrentDb.Name
Do
j = InStr(i + 1, path, "\")
If j > 0 Then i = j
Loop While j > 0
bd = Mid(path, i + 1)
path = Left(path, i - 1)
MsgBox "La base de datos se llama " & bd & " y está en " & path
End Sub
Espero que quede claro
|
