VB 调试出现实时错误54

FileName = Text1.Text
FileName1 = "E:\download3\" & FileName & ".txt" ‘此处调试出现实时错误54
Open FileName1 For Random As #1
'Do While Not EOF(1) '判断是否到了文件结尾
  Line Input #1, tmpstr '读一行给临时变量
  If Dir(tmpstr) = "" Then
  Else
  ret1 = MsgBox("File Name has already exist,cover the file?", 32, "")
  If ret1 = 1 Then '确定
  Open "E:\download3\" + FileName + ".txt" For Input As #1 ' 打开文件
  Else
  FileName = ""
  Form2.Text1.Text = ""
  End If
  End If
'Loop '循环

代码如上 求解。

应该是没找到文件名对应的文件吧。 但应该在open语句那里出现错误才对。

文件不存在，用dir确定文件存在，再open就行