急问：这是什么原因？

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

我以前的程序是用2002编的，用这样的方法得到工程路径：“'通过得到当前工程的路径得到数据文件的路径,和下面直接打开路径效果一样
strPath = ThisDrawing.Application.VBE.activevbproject.filename
Open left(strPath, Len(strPath) - 9) & "test.txt" For Input As #i

'Open "d:\test.txt" For Input As #i”现在所用的版本是2000的，可是程序执行到这一步老出错，不知道大虾们是否遇到这样的问题，请明示！谢谢

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

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

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

此外不知道你的open前有没有
i＝freefile

急问：这是什么原因？

发表回复

精选推荐