使用しているmdbファイルのファイル名、パス名、フルパス名を取得する方法を紹介します。

通常は、下記の「CurrentProjectを使用する場合」でそれぞれを取得できますが、DAOを使用しても取得できます。


CurrentProjectを使用する場合

Public Sub subFileName()

'ファイル名の取得
Debug.Print "ファイル名:" & CurrentProject.Name

'パス名の取得
Debug.Print "パス名:" & CurrentProject.Path

'フルパス名の取得
Debug.Print "フルパス名:" & CurrentProject.FullName
End Sub 

上記VBAを標準モジュール内に作って、イミディエイトウィンドで

Call subFileName

とすると、イミディエイトウィンドに表示されます。


DAOを使用する場合

Public Sub fncFileName_Dao()

'変数の宣言
Dim strFolder As String

'フルパス名の取得
strFolder = CurrentDb.Name

'ファイル名の取得
Debug.Print "ファイル名:" & Right$(strFolder, Len(strFolder) - InStrRev(strFolder, "", , vbTextCompare))

'パス名の取得
Debug.Print "パス名:" & Left$(strFolder, InStrRev(strFolder, "", , vbTextCompare) - 1)

'フルパス名の取得
Debug.Print "フルパス名:" & strFolder
End Sub

上記VBAを標準モジュール内に作って、イミディエイトウィンドで

Call fncFileName_Dao

とすると、ファイル名が返ってきます。