y1982_0 发表于 2005-9-15 19:09:00

急问：这是什么原因？

<P>我以前的程序是用2002编的，用这样的方法得到工程路径：“'通过得到当前工程的路径得到数据文件的路径,和下面直接打开路径效果一样<BR>strPath = ThisDrawing.Application.VBE.activevbproject.filename<BR>Open left(strPath, Len(strPath) - 9) &amp; "test.txt" For Input As #i</P>
<P><BR>'Open "d:\test.txt" For Input As #i”现在所用的版本是2000的，可是程序执行到这一步老出错，不知道大虾们是否遇到这样的问题，请明示！谢谢</P>

MJTD_7777 发表于 2005-9-16 15:47:00

<P>用这个获取文件路径可能更稳定一些：</P>
<P>Dim FilePath As String<BR>FilePath = ThisDrawing.Application.VBE.activevbproject.filename<BR>FilePath = Mid(FilePath, 1, InStrRev(FilePath, "\"))</P>
<P>Len(strPath) - 9 ：这里的“9”依赖于你的文件名，所以我个人认为不是一个好方法</P>

MJTD_7777 发表于 2005-9-16 15:51:00

<P>此外不知道你的open前有没有</P>
<P>i＝freefile</P>
页: [1]
查看完整版本: 急问：这是什么原因？