【求助】如何获得应用程序的名称？

aslxt

如题，我的应用程序文件名为“仓库管理.mdb”，如何在程序代码中获得这个名称？谢谢

roych

用filedialog函数试试看？
我之前回复的帖子里有一个例子：
http://www.office-cn.net/forum.p ... 45&page=1#pid580081
或者用filesystemobject也可以——只是往往需要先得知路径。

(⊙_⊙)，可能我说得复杂了点，如果只是获取当前数据库的名称，用Andy斑竹的写法就好了。

andymark

CurrentDb.Name

aslxt

CurrentDb.Name
也是文件路径+文件名，需要截取字符串才能得到，有没有直接的属性可用？

roych

用currentproject.path（这个是当前数据库路径）来截取不就行了？试试这个？
right(CurrentDb.Name,len(CurrentDb.Name)-len(CurrentDb.Name)-1)          ——减去1是因为全名中还有一个斜杠