Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
Current Directory Value
- Thread starter Kwan
- Start date
- Thread starter
- #2
i finally found the answer on the web. For those interested here is the code:
Function GetDBPath() As String
Dim MyDB As Database
Dim tempPath As String
Dim FileLen As Integer
' Set MyDB to the current database.
Set MyDB = CurrentDb()
' get the length of the db file name
FileLen = Len(dir(MyDB.Name, vbDirectory))
' trims off the db filename so the path is all that's left.
tempPath = Left(MyDB.Name, (Len(MyDB.Name) - FileLen))
' Return the path name
GetDBPath = tempPath
End Function
Function GetDBPath() As String
Dim MyDB As Database
Dim tempPath As String
Dim FileLen As Integer
' Set MyDB to the current database.
Set MyDB = CurrentDb()
' get the length of the db file name
FileLen = Len(dir(MyDB.Name, vbDirectory))
' trims off the db filename so the path is all that's left.
tempPath = Left(MyDB.Name, (Len(MyDB.Name) - FileLen))
' Return the path name
GetDBPath = tempPath
End Function
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question