Question

我正在使用VB6。在Form.Load中，我在C：\ test.txt中找到文本填充Text1.text。我的问题是如果文件C：\ test.txt不存在，我的程序只是错误。如果文件丢失而不是程序崩溃，我如何才能获得MsgBox或其他通知？（这样我可以继续使用该程序，但只是被告知文件不存在）这是我正在使用的代码：

nFileNum = FreeFile

Open "C:\test.txt" For Input As nFileNum
lLineCount = 1

    Do While Not EOF(nFileNum)
       Line Input #nFileNum, sNextLine
       sNextLine = sNextLine
       sText = sText & sNextLine
    Loop

Text1.Text = sText
Close nFileNum

Answer 1

您需要在代码中添加错误处理。然后检查错误消息或错误代码，然后决定是否显示警告消息。

On Error GoTo err_check
nFileNum = FreeFile 

Open "C:\test.txt" For Input As nFileNum 
lLineCount = 1 

    Do While Not EOF(nFileNum) 
       Line Input #nFileNum, sNextLine 
       sNextLine = sNextLine 
       sText = sText & sNextLine 
    Loop 

Text1.Text = sText 
Close nFileNum

Exit Sub

err_check:
'Check error code/message and display warning message box here

Answer 2

尝试

nFileNum = FreeFile

Open "C:\test.txt" For Input As nFileNum

If (nFileNum Is Nothing) Then
    MsgBox "Hello there!"
Else
    lLineCount = 1

        Do While Not EOF(nFileNum)
           Line Input #nFileNum, sNextLine
           sNextLine = sNextLine
           sText = sText & sNextLine
        Loop

    Text1.Text = sText
    Close nFileNum
End If

找不到.txt文件导致我的程序崩溃

2 个答案: