Get Directory of Current DB

[T Martin]

Is there a way that I would be able to get the current directory of the
database I am working in.

Example: If my database were in "C:\MyDocs\MYDB.mdb" then I would like the
code to return "C:\MyDocs\"

thanks

T Martin

[Bas Cost Budde]

T Martin wrote:

Is there a way that I would be able to get the current directory of the
database I am working in.

Example: If my database were in "C:\MyDocs\MYDB.mdb" then I would like the
code to return "C:\MyDocs\"

Function ourPath() As String
Dim cRes As String
Dim nPos As Long
cRes = CurrentDb.Name
nPos = Len(cRes)
Do Until Right(cRes, 1) = "\"
nPos = nPos - 1
cRes = Left(cRes, nPos)
Loop
ourPath = cRes
End Function

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[Allen Browne]

Bas' solution will work for any version of Access.

From Access 2000 onward, you can just use:
Left(CurrentProject.FullName, InstrRev(CurrentProject.FullName, "\"))

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Bas Cost Budde" <b.*********@heuvelqop.nl> wrote in message
news:cn**********@news2.solcon.nl...

T Martin wrote:

Is there a way that I would be able to get the current directory of the
database I am working in.

Example: If my database were in "C:\MyDocs\MYDB.mdb" then I would like
the
code to return "C:\MyDocs\"

Function ourPath() As String
Dim cRes As String
Dim nPos As Long
cRes = CurrentDb.Name
nPos = Len(cRes)
Do Until Right(cRes, 1) = "\"
nPos = nPos - 1
cRes = Left(cRes, nPos)
Loop
ourPath = cRes
End Function
--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[GrayJay]

"T Martin" <ma********@charter.net> wrote:

Is there a way that I would be able to get the current directory of the
database I am working in.

Example: If my database were in "C:\MyDocs\MYDB.mdb" then I would like the
code to return "C:\MyDocs\"

thanks

T Martin

The following will break it down to:

"C:\MyDocs\MYDB.mdb"
"C:\MyDocs\"
"MYDB.mdb"

Function CurrentDBDir() As String

Dim strDBPath As String, strDBFile As String

strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)

CurrentDBDir = strDBPath & vbCrLf & _
Left(strDBPath, Len(strDBPath) - Len(strDBFile)) & vbCrLf &
_
strDBFile

End Function
--
»«»«»« Graham »«»«»«

[Johan]

strCurrentDir = Left(strDB, Len(strDB) - Len(Dir(strDB)))

[Johan]

strDB = CurrentDb.Name
strCurrentDir = Left(strDB, Len(strDB) - Len(Dir(strDB)))

[Bas Cost Budde]

Johan wrote:

strDB = CurrentDb.Name
strCurrentDir = Left(strDB, Len(strDB) - Len(Dir(strDB)))

Clever! to subtract the filename, as it were. I'll stick that in my toolbox.

--
Bas Cost Budde, Holland
http://www.heuveltop.nl/BasCB/msac_index.html
I prefer human mail above automated so in my address
replace the queue with a tea

[Stephen K. Young]

Or: CurrentProject.Path

- Steve

"Allen Browne" <Al*********@SeeSig.Invalid> wrote in message
news:41***********************@per-qv1-newsreader-01.iinet.net.au...

Bas' solution will work for any version of Access.

From Access 2000 onward, you can just use:
Left(CurrentProject.FullName, InstrRev(CurrentProject.FullName, "\"))

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

[Allen Browne]

Thanks, Steve

Doesn't get much simpler than that!

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Stephen K. Young" <s k y @ stanleyassociates . com> wrote in message
news:30*************@uni-berlin.de...

Or: CurrentProject.Path

[T Martin]

Thanks for all the options

"T Martin" <ma********@charter.net> wrote in message
news:CU***********@fe12.lga...

Is there a way that I would be able to get the current directory of the
database I am working in.

Example: If my database were in "C:\MyDocs\MYDB.mdb" then I would like the
code to return "C:\MyDocs\"

thanks

T Martin