[Resolvido]Diretório Atual

Preciso mapear o diretório do Mdb aberto, tentei o código abaixo, porém, sem sucesso (ele retorna outro caminho). Alguma ajuda?

Dim MyPath
MyPath = CurDir()

Public Function CurrentPath() As String
Dim strCurrentDBName As String
Static strPath As String
Dim i As Integer
If Len(strPath) = 0 Then
strCurrentDBName = CurrentDb.Name
For i = Len(strCurrentDBName) To 1 Step -1
If Mid(strCurrentDBName, i, 1) = "\" Then
strPath = Left(strCurrentDBName, i)
Exit For
End If
Next
End If
CurrentPath = strPath
End Function

Ou o mais simples;

Public Function LocalizacaoMDB() As String
Dim strBanco As String
strBanco = CurrentDb().Name
LocalizacaoMDB = strBanco
End Function

Estava precisamente a tentar tornar a função acima mais simples. Acho que funfa direitinho:

Public Function CurrentPath() As String
Static strPath As String
If Len(strPath) = 0 Then
strPath = FolderFromPath(CurrentDB.Name)
End If
CurrentPath = strPath
End Function

Resolvido.... valeu!

Grande Vieira, ainda assim ficou menos simples.....


Éder, Obrigado pelo retorno, o forum agradece.

É verdade Mestre, foi só para não perder o trabalho que tive, pois a maior viaja comigo desde o access 97

Abraço