UC知道请回答这个VB问题！！！
来源：百度知道 编辑：UC知道 时间：2024/06/18 16:39:30
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a() As String
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & a(n)
Loop
close #11
End Sub
问题就是执行代码了！就会出现“找不到执行文件”的错误，可是我在D盘创建了一个aa.txt的文本文档！但是为什么还出现“找不到执行文件”的错误呢？请各位执行下，看看什么问题！！！希望大家能帮下我！！
Dim n As Integer, i As Integer, a() As String
Dim p As Integer, s As String, j As Integer
Open "D:\aa.txt" For Input As #11
Do While Not EOF(11)
n = n + 1
ReDim Preserve a(n)
Input #11, a(n)
Text1 = Text1 & a(n)
Loop
close #11
End Sub
问题就是执行代码了！就会出现“找不到执行文件”的错误，可是我在D盘创建了一个aa.txt的文本文档！但是为什么还出现“找不到执行文件”的错误呢？请各位执行下，看看什么问题！！！希望大家能帮下我！！
问题有可能是必须在C盘的Visual Basic 目录下创建文件才可以运行吧，有时候程序必须在C盘才可运行。我就出现过这种情况，你看看是不是这个原因。
分太少！懒得打字！！
你可能创建了aa.txt.txt
我已经测试,没有问题,不晓得你哪里错了,可能你没有创建 aa.txt文件!!
这个语句应该在QB里运行吧！或者你的版本是不是有问题！
反正我VB版本不支持，你这种写法！