vb错误53，文件未找到

Question

如题所述

Answer 1

没有in.txt,可以再Open "F:\vb\in.txt" For Input As #1前加个判断
Private Sub C1_Click()
Dim number(1 To 10) As Integer
Dim i As Integer
If Dir("F:\vb\in.txt", 7) <> "" Then
Open "F:\vb\in.txt" For Input As #1
For i = 1 To 10
Input #1, number(i)
Next
Close #1
For i = 1 To 10
a$ = a$ + Str(number(i)) + " "
Next
Text1.Text = a$
Else
Open "F:\vb\in.txt" For Output As #1 '没有的话,创建一个
Print #1, "aaa"
Close #1
End If
End Sub

Answer 2

你看一下d盘下面有没有result.dat文件