如何获取mdb本身路径或文件名?

来源:互联网 时间:2016-01-03

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有时是不同的

相关阅读:
Top