Не найден файл .txt, вызывающий сбой моей программы

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