var sidebar_align = 'right';
var content_container_margin = parseInt('290px');
var sidebar_width = parseInt('270px');
Unanswered: get path
I have an Access db that should create a new file. To know where to create this new db I need to know the path (without file name) of the first one.
Anyone can help me?
DatabasePath = Left$(CurrentDb.Name, InStr(CurrentDb.Name, Dir(CurrentDb.Name)) - 1)
Use this to get the path with filename:
dim sPath as string
dim sDir as string
dim iPos as integer
sPath = Application.CurrentDb.Name
iPos = instrrev(sPath,"\")
sDir = left(sPath, iPos)
If you don't want the backslash to be included in the final result, use iPos - 1 in the last line.
Here's another way just in case you weren't confused yet:
It works fine. Thanks a lot.