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

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

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

[求助]这两种方法都能获得工程相对路径, 但如果新加载一个DVB工程,路径出错, 如何修改 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 发表于 2008-4-17 09:55:00

这问题解决不了吗??

yxr_MJTD 发表于 2008-12-20 12:06:00

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

123movie 发表于 2008-12-26 21:42:00

没人知道怎么解决么？
我也碰到了这个问题

yxr_MJTD 发表于 2009-3-5 11:49:00

我也在想这个问题.

wuyunpeng888 发表于 2009-3-5 22:22:00

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

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