Visual Basic .NET中的异常处理简介（上）

此代码示例是一个与某应用程序相关的 Try...Catch...Finally 块，该应用程序打开一个文件并进行检查。注意，即使 Exit Sub 在代码中位于 Finally 前面，Finally 语句也将执行。

Imports System

Sub OpenMyFile

Dim thisFile As Object

Try

FileOpen（1, thisFile, OpenMode.Input）

Catch ex As Exception

MsgBox （ex.Message）

Exit Sub

Finally

FileClose（1）

End Try

End Sub