VB读取命令
我想读入每一句话，具体像下面，但是总是提醒文件找不到，我应该怎样改？求指点
[解决办法]
那就试试使用ms script control，语言设置为java
[解决办法]
Private Sub Command1_Click()
'假设上面的内容为文件A.Log
'读取有多少行数
Dim a As String
Dim n As Integer
Open App.Path & "\A.Log" For Binary As #1
n = 0
While Not EOF(1)
Line Input #1, a
n = n + 1
Wend
'读入A.Log
Do While Not EOF(1)
Line Input #1, a
'这里该做啥做啥
DoEvents
Loop
Close #1
MsgBox n
End Sub
