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(CurrentPro ject.FullName, InstrRev(Curren tProject.FullNa me, "\"))

--
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.*********@he uvelqop.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********@cha rter.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*********@Se eSig.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(CurrentPro ject.FullName, InstrRev(Curren tProject.FullNa me, "\"))

--
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 @ stanleyassociat es . com> wrote in message
news:30******** *****@uni-berlin.de...

Or: CurrentProject. Path

[T Martin]

Thanks for all the options

"T Martin" <ma********@cha rter.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