UC知道vb中，谁可以帮我看看：这段代码到底哪错了？
来源：百度知道 编辑：UC知道 时间：2024/06/08 15:50:06
Private Sub Form_Load()
Timer1.Interval = 1000 '设置检测时间为1分钟
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Open App.Path & "\haha.txt" For Input As #1
Line Input #1, url
Dim SJ As Integer
SJ = Second(Now)
If SJ = url Then
Close #1
Shell "46456.exe"
End If
End Sub
老是提示：“Open App.Path & "\haha.txt" For Input As #1”有问题！怎么回事？
Timer1.Interval = 1000 '设置检测时间为1分钟
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Open App.Path & "\haha.txt" For Input As #1
Line Input #1, url
Dim SJ As Integer
SJ = Second(Now)
If SJ = url Then
Close #1
Shell "46456.exe"
End If
End Sub
老是提示：“Open App.Path & "\haha.txt" For Input As #1”有问题！怎么回事？
Private Sub Form_Load()
Timer1.Interval = 1000 '1000只是一秒
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Open App.Path & "\haha.txt" For Input As #1
Line Input #1, url
Dim SJ As Integer
SJ = Second(Now)
If SJ = url Then
Shell "46456.exe"
End If
Close #1 '不管有没有满足条件都要打开的文件关闭 所以写在if外
End Sub
第一分钟打开文件, 如果SJ <> url, 文件没有被关闭
第二分钟打开文件时,会发生文件已经被打开的错误.
文件号 #1被占用?或者你本身的文本文件处于打开状态