[VBA]在vba中怎样找当前路径？

weekendor

求教中.....


在vba中怎样找到我当前.dvb文件的路径所在呢？


目的：我是想在.dvb同一目录下读一数据库，但是找不到相关找当前路径的函数方法，烦恼ing...


（在VB中，可以用App.Path知道当前的路径，但是在AutoCAD的vba中好像不能用这个方法。。。　不知有无高招可指教指教）


迫切求救，请教各位大侠！

wyj7485

Function GetSupportPath() As String
Dim strFileName
strFileName = VBE.ActiveVBProject.FileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
GetSupportPath = Left$(strFileName, InStrRev(strFileName, "\"))
End Function

weekendor

谢谢你的回复！


我试试！　：）

weekendor

成功！


感谢求助！　：）

zhenyy_hyz

1楼的回复呢，？