Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
(" Windows フォーム デザイナで生成されたコード ")
Private Function isDriveC(ByVal filename As String)
Trace.WriteLine(filename & "をドライブCかチェックします。")
Return filename.ToLower().StartsWith("c:")
End Function
Private Function fileCheck(ByVal filename As String) As String
Try
Dim reader As StreamReader = New StreamReader(filename)
Try
Return reader.ReadToEnd()
Finally
reader.Close()
End Try
Catch ex As IOException When Not isDriveC(filename)
Trace.WriteLine("ドライブCではないので無視します。")
End Try
End Function
Private Sub fileCheckSub(ByVal filename As String)
Trace.WriteLine(filename & "の処理を開始します。")
Try
fileCheck(filename)
Catch ex As IOException
Trace.WriteLine(filename & "について入出力エラーが発生しました。")
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
fileCheckSub("c:\autoexec.bat")
fileCheckSub("c:\nothing.txt")
fileCheckSub("d:\nothing.txt")
End Sub
End Class