VB6 打开文件出错

Question

VB6 打开文件时候报错，错误号是76，我看了下我的文件目录是存在的。
代码如下：
Private Sub initial()
 Dim filenums As String                 ' tempflag in par file
 Dim serialadtimelongs As String
 Dim lcengages As String
 Dim lcreleases As String
 Dim lcsemis As String
 Dim tx1s As String
 Dim tx0s As String
 Dim tx2s As String
 Dim lpdmaxs As String
 Dim lpdmins As String
 Dim bkmaxs, bkmins As String
 Dim serialports As String
  Open "..\par\par.txt" For Input As #20 Input #20, filenums, serialadtimelongs, lcengages, lcreleases, lcsemis, tx1s, tx0s, tx2s, tx1s, tx0s, tx2s, tx0s, lpdmaxs, lpdmins, serialport
 Input #20, filenum, serialadtimelong, lcengage, lcrelease, lcs, tx1, tx0, tx2, ty1, ty0, ty2, datanum, lpdmax, lpdmin, serialport
 Close #20
par.txt 文件在D:\copy  VB6-caiji-EDIT200712\VB6-caiji-EDIT200712\par路径下，我要是换成D:\copy  VB6-caiji-EDIT200712\VB6-caiji-EDIT200712\par\par.txt,就不会出错了，关键是我这个工程将来不一定会在根目录下面，所以……
刚开始我以为是文件路径中有中文的原因，可是改成英文后还是不行，谢谢！

Answer 1

可以用app.path & "\par.txt"来代替。

Answer 2

还是不可以啊，返回的是53号错误。谢谢哈。对了，工程文件夹D:\copy  VB6-caiji-EDIT200712\VB6-caiji-EDIT200712\daq60，par.txt的文件在D:\copy  VB6-caiji-EDIT200712\VB6-caiji-EDIT200712\par目录下，就一个文件par.txt。
这两个文件夹在同一个目录D:\copy  VB6-caiji-EDIT200712\VB6-caiji-EDIT200712下，谢谢

Answer 3

这些人老是喜欢用相对路径。
干吗不转换成绝对路径？Dim strFile$
strFile = App.Path
strFile = Left$(strFile, InStrRev(strFile, "\")) & "par\par.txt"
Open strFile For Input As #20