「VB.net」Try-Catch文とUsing文を使用する方法

2014年4月3日2021年10月4日

書式

Try 
  Using 変数名　As New treamReader(fileName, Encoding.GetEncoding("UTF-8"))
    処理コード  
  End Using
End Try

使用例

Imports System.IO
Imports System.Text

Module Module1

    Sub Main()

        'String型変数の宣言
        Dim fileName As String = "C:\study\testlog.txt"
        Dim rte As String

        'Try Catch例外処理
        Try
            ' Using文でファイルオープン
            Using streamreader As New StreamReader(fileName, Encoding.GetEncoding("UTF-8"))
                Console.WriteLine("ファイル" + fileName + "をオープンしました")

                'ストリームの現在位置から末尾までの全ての文字を読み込む
                rte = streamreader.ReadToEnd()
            End Using
            Console.WriteLine(rte)
        Catch ex As Exception
            Console.WriteLine(ex.Message) 
        End Try

        Console.ReadKey()
    End Sub

End Module

実行結果
1.ファイルが存在しない場合、実行結果は以下のようになります
ファイル 'C:\study\testlog.txt’ が見つかりませんでした。

2.ファイルが存在する場合、実行結果は以下のようになります
ファイルC:\study\testlog.txtをオープンしました
1行目:東京
2行目:大阪
3行目:名古屋