Как пропустить ошибку

[neic]

Я открываю файл, которого нету у меня вылезает ошибка. Как это исправить?

Пишу так:
On Error Resume Next
Dim a as new System.IO.StreamReader("файл")
p = a.ReadLine
a.Close()

[Viper]

Открывать файл, который у тебя есть!

а если серьезно, то

Вместо:

Код: Выделить всё

On Error Resume Next
Dim a as new System.IO.StreamReader("файл")
p = a.ReadLine
a.Close()

писать

Код: Выделить всё

Try
Dim a as new System.IO.StreamReader("файл")
p = a.ReadLine
a.Close()
Catch
' обработка ошибок, если нужна
End Try

или

Код: Выделить всё

On Error GoTo ErrOpenFile
Dim a as new System.IO.StreamReader("файл")
p = a.ReadLine
a.Close()
'...
ErrOpenFile:
' обработка ошибок, если нужна


[neic]

!Viper!
ОК пасибо!