VB.Net Tutorial/Statements/On Error GoTo
On Error GoTo errorhandle
<source lang="vbnet">Imports System.IO public class Tester
public Shared Sub Main Dim myfile As System.IO.File Dim w As System.IO.StreamWriter On Error GoTo errorhandle w = myfile.AppendText("a:\temp.txt") w.Write("a") w.Close() Exit Sub errorhandle: Console.WriteLine("Please Insert") Exit Sub Resume End Sub
End class</source>
Please Insert
Select Case Err.Number
<source lang="vbnet">Imports System.IO public class Tester
public Shared Sub Main On Error GoTo ErrorHandle Exit Sub ErrorHandle: Select Case Err.Number Case 52 Console.WriteLine("File Name Exception") Case 53 Console.WriteLine("File cannot be found") Case 54 Console.WriteLine("File Mode Exception") Case 55 Console.WriteLine("File is aleady open") Case 58 Console.WriteLine("File exists") Case 68 Console.WriteLine("Device is not available") Case 75 Console.WriteLine("Path Exception") Case 76 Console.WriteLine("Path cannot be found") Case Else Console.WriteLine("Other") End Select End Sub
End class</source>