Currentproject.FullName
CurrentProject.Path

’不带路径：
currentproject.Name
codeproject.Name
GetPath(CurrentDB.Name)
Function GetPath(ByVal v) As String
GetPath = Mid(v, 1, InStrRev(v, "", -1))
End Function

’带路径：
CodeDb.Name
Currentproject.FullName
CurrentDB.Name

不过记住currentproject.Name 和 codeproject.Name有时是不同的

以上就是如何获取mdb本身路径或文件名？的全部内容，望能这篇如何获取mdb本身路径或文件名？可以帮助您解决问题，能够解决大家的实际问题是谜爱阁生活网一直努力的方向和目标。