Current Directory Value
Current Directory Value
(OP)
Does anyone know the VBA formula for the current directory? I'm working on an access database that may be moved to other directories and would like to eliminate all the hard coded directories and make it automatic.
Thanks
Thanks





RE: Current Directory Value
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