Question

vb系统运行中出现实时错误：5 如何解决。

Private Sub Form_activate()
Open App.Path & "\regist.txt" For Random As #1 Len = Len(parti)
lastrecord = LOF(1) / Len(parti)
fraInfo.Enabled = False
fraRecom.Enabled = False
lblPic.Enabled = False
End Sub
文件夹总是打不开~~~~~急用~~~~~~~
谢谢帮忙啦~~~~~~~~

Answer 1

Open App.Path & "\regist.txt" For Random As #1 Len = Len(parti) 要分两行写

Open App.Path & "\regist.txt" For Random As #1
Len = Len(parti)

分两行后应该没语法错误，那你要检查regist.txt的文件是否存在是否在你等工程文件夹里

追问

那我如果在文件夹里创建了一个regist.txt文件但是也还是打不开呢？可以麻烦你帮我看看整个程序吗？

追答

你这段代码我试过了，我在工程文件夹创建了1个1.txt 里面随便输入了些。
前三句执行没问题，说明打开没问
Open App.Path & "\regist.txt" For Random As #1
Len = Len(parti)
lastrecord = LOF(1) / Len(parti)
可能后边的代码有问题。

追问

我刚刚也有在按你给的方法再试了一遍，但是一打开运行界面的时候系统就弹出错误，下面的代码也无法执行~~~~请问还有可能是哪里出现什么问题吗？