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

Question

Im using 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

Попробуйте

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 

Answer 2

Вы должны добавить Ошибка обработки вашего кода. Затем проверьте сообщение об ошибке или код ошибки, а затем решите отобразить предупреждающее сообщение или нет.

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