開いているmdbのパスを取得するモジュール

今、開いているmdbのパスを取得するモジュールです。

Public Function get_myMDBPath() As String
Dim strFullPath As String
Dim i As Long

    strFullPath = CurrentDb.Name
    i = InStrRev(strFullPath, "\", -1, vbTextCompare)
    get_myMDBPath = Left(strFullPath, i)
    
End Function

1. まずフルパスを求めます
2. 次に、フルパスの最後の“\”の位置を求め、
3. 最後の“\”迄を返します。
   　最後の“\”を取りたい場合は、３行目を次のようにします。

    get_myMDBPath = Left(strFullPath, i - 1)