Функция получения пути к каталогу в котором находится база

Аргументы: нет
Назначение: Получить путь к каталогу в котором находится база
Возвращает: Путь.

 Public Function CurrentPath() As String
Dim strName As String

strName = CurrentDb.Name
CurrentPath = Left(strName, Len(strName) - Len(Dir(strName)) - 1)
End Function

 В Access 97 возвращает путь в старом формате (E:\ACCESS~2\ACCESS~3)
В Access XP в нормальном (E:\Access Code Library\Access Help)