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

windandr

[求助]这两种方法都能获得工程相对路径, 但如果新加载一个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文件. 重新运行程序 ,路径会有错误 有人能解决这个问题吗??

windandr

这问题解决不了吗??

yxr_MJTD

我也遇到这个问题.现在还没有解决

123movie

没人知道怎么解决么？

我也碰到了这个问题

yxr_MJTD

我也在想这个问题.

wuyunpeng888

做个DLL放在DVB的文件夹就行了，在DLL里就可以用app.path了