How get path of executing database?

[Guest]

I'd like to get the path of the current database from inside VBA.
Is this possible?
E.g. If my database is \\server1\Access\MyApp.mdb

I'd like to get "\\server\Access\" somehow

 

[Guest]

Application.CurrentDb.Name
Will return the path + name

 

[Brendan Reynolds]

Here are two ways ...

CurrentProject.Path

Left$(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)) -
1)

The first method requires Access 2000 or later, the second will also work
with earlier versions.