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

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

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

windandr 发表于 2008-4-17 09:55:00

这问题解决不了吗??

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

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

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

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

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

<p>我也在想这个问题.</p><p></p>

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

做个DLL放在DVB的文件夹就行了，在DLL里就可以用app.path了
页: [1]
查看完整版本: [求助]这两种方法都能获得工程相对路径, 但如果新加载一个DVB工程,路径出错, 如何修