[求助]这两种方法都能获得工程相对路径, 但如果新加载一个DVB工程,路径出错, 如何修

windandr · 发表于 2008-4-16 11:30:00

[求助]这两种方法都能获得工程相对路径, 但如果新加载一个DVB工程,路径出错, 如何修改[br] 2Public Function GetDirPath() As String
Dim strFileName
strFileName = VBE.ActiveVBProject.fileName 'VBE.ActiveVBProject.FileName获取.dvb文件的文件名
GetDirPath = Left$(strFileName, InStrRev(strFileName, "\"))
End Function
------------------------------
dim strpath as string '当前工程所在路径
strpath=thisdrawing.application.vbe.activeVBProject.filename
strpath=left $ (strpath,len(strpath)-len("XXXX.dvb"))
以上两种方法都有个问题, 如果VABMAN 新加载一个DVB文件. 重新运行程序 ,路径会有错误有人能解决这个问题吗??