求助 大家帮帮我啊~~~~~

呵呵 谢谢了 后来试验了一下其实根txt文档的读取方法一样哦 呵呵
拿上来大家看看有什么不足的地方~~~

Private Sub Command1_Click()

'一下代码循环检测每行最后5个字符是否符合规定。符合则弹出一个提示
Open "c:\1.inf" For Input As #1
Dim a(1 To 10000) As Variant
Dim zf As String
For i = 1 To 10000
If EOF(1) = True Then GoTo 10 '测试是否到文件尾
Input #1, a(i)

zf = Right(a(i), 5)
If zf = "1.exe" Then
MsgBox "成功~~~~o(∩_∩)o...哈哈"
End If
Next i
10
Close
End Sub