急问：这是什么原因？

y1982_0

我以前的程序是用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

用这个获取文件路径可能更稳定一些：

Dim FilePath As String
FilePath = ThisDrawing.Application.VBE.activevbproject.filename
FilePath = Mid(FilePath, 1, InStrRev(FilePath, "\"))

Len(strPath) - 9 ：这里的“9”依赖于你的文件名，所以我个人认为不是一个好方法

MJTD_7777

此外不知道你的open前有没有

i＝freefile