VB.NETでのUsing句の使い方とは?Using句の使い方と例外処理

エンジニア
マネージャー
VB.NETでのUsing句の使い方とは?
今回は、VB.NETでのUsing句の使い方について説明します。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。
解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介します。
VB.NETでのUsing句の使い方に興味のある方はぜひご覧ください。
Using句を使わない場合
まずは、VB.NETでUsing句を使わない場合の記述方法を紹介します。Try-Finally句を使用します。
ここで使用する「C:\test\test.txt」は以下の内容とします。
1 2 3 |
line1 line2 line3 |
それでは実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
Imports System.IO Imports System.Text Module Program Sub Main(args As String()) Dim sr As StreamReader = Nothing Dim FilePath As String = "C:\test\test.txt" Try Encoding.RegisterProvider(CodePagesEncodingProvider.Instance) ' ファイルオープン sr = New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS")) Console.WriteLine(FilePath + "を開きました。") ' ファイルの内容を取得 Dim s As String = sr.ReadToEnd() Console.WriteLine(s) Catch ex As Exception ' 例外処理 Console.WriteLine(Err.Description) Finally ' 例外が発生してもしなくても実行する If sr IsNot Nothing Then sr.Dispose() End If End Try End Sub End Module |
実行結果は以下のようになります。Finally句で確実にDisposeします。
1 2 3 4 |
C:\test\test.txtを開きました。 line1 line2 line3 |
Catch句には例外処理を記述します。「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。
1 |
Could not find file 'C:\test\test.txt'. |
Using句の使い方
VB.NETでのUsing句の使い方を紹介します。明示的にDisposeを記述する必要がありません。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Imports System.IO Imports System.Text Module Program Sub Main(args As String()) Dim FilePath As String = "C:\test\test.txt" Dim s As String Encoding.RegisterProvider(CodePagesEncodingProvider.Instance) ' Using句でファイルオープン Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS")) Console.WriteLine(FilePath + "を開きました。") s = sr.ReadToEnd() End Using Console.WriteLine(s) End Sub End Module |
実行結果は以下のようになります。
1 2 3 4 |
C:\test\test.txtを開きました。 line1 line2 line3 |
このようにVB.NETでは、Using句を使うことで明示的にDisposeを記述せずにリソースを解放できます。
「C:\test\test.txt」が存在しない場合、実行時例外が発生します。
1 2 3 |
例外がスローされました: 'System.IO.FileNotFoundException' (System.Private.CoreLib.dll の中) 型 'System.IO.FileNotFoundException' のハンドルされていない例外が System.Private.CoreLib.dll で発生しました Could not find file 'C:\test\test.txt'. |
Using句+例外処理
VB.NETでUsing句に例外処理を加える場合は、Try-Catch句でUsing句を囲みます。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Imports System.IO Imports System.Text Module Program Sub Main(args As String()) Dim FilePath As String = "C:\test\test.txt" Dim s As String Try Encoding.RegisterProvider(CodePagesEncodingProvider.Instance) ' Using句でファイルオープン Using sr As New StreamReader(FilePath, Encoding.GetEncoding("Shift_JIS")) Console.WriteLine(FilePath + "を開きました。") s = sr.ReadToEnd() End Using Catch ex As Exception '例外処理 Console.WriteLine(Err.Description) End Try ' ファイルの中身を表示 Console.WriteLine(s) End Sub End Module |
実行結果は以下のようになります。
1 2 3 4 |
C:\test\test.txtを開きました。 line1 line2 line3 |
「C:\test\test.txt」が存在しない場合、実行結果は以下のようになります。
1 |
Could not find file 'C:\test\test.txt'. |
Using句に複数オブジェクトを指定
VB.NETでUsing句に複数オブジェクトを指定する方法を紹介します。実際のソースコードを見てみましょう。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
Imports System.IO Imports System.Text Module Program Sub Main(args As String()) Dim SrcFilePath As String = "C:\test\test.txt" Dim DstFilePath As String = "C:\test\test2.txt" Dim s As String Try ' 内容のコピー(複数のオブジェクトを指定) Using srcStream As FileStream = File.OpenRead(SrcFilePath), dstStream As FileStream = File.OpenWrite(DstFilePath) ' test.txtの内容をtest2.txtにコピー srcStream.CopyTo(dstStream) End Using ' コピー先ファイルの表示 Encoding.RegisterProvider(CodePagesEncodingProvider.Instance) Using sr As New StreamReader(DstFilePath, Encoding.GetEncoding("Shift_JIS")) Console.WriteLine(DstFilePath + "を開きました。") s = sr.ReadToEnd() End Using Catch ex As Exception '例外処理 Console.WriteLine(Err.Description) End Try ' ファイルの中身を表示 Console.WriteLine(s) End Sub End Module |
実行結果は以下のようになります。読み込みのストリームと書き込みのストリームを単一のUsing句で指定しています。
1 2 3 4 |
C:\test\test2.txtを開きました。 line1 line2 line3 |
このようにVB.NETでは、Using句に複数オブジェクトを指定できます。
エンジニア
マネージャー
まとめ
いかがでしたでしょうか。VB.NETでのUsing句の使い方について説明しました。Using句を使用すると、明示的にDisposeを記述せずにリソースを解放できます。
解放漏れがなくなりますし、ソースコードがシンプルになります。Using句の基本的な使い方、例外処理、複数オブジェクトの指定方法について紹介しました。
ぜひご自身でVB.NETのソースコードを書いて、理解を深めてください。
FEnet.NETナビ・.NETコラムは株式会社オープンアップシステムが運営しています。
株式会社オープンアップシステムはこんな会社です
秋葉原オフィスには株式会社オープンアップシステムをはじめグループのIT企業が集結!
数多くのエンジニアが集まります。

-
スマホアプリから業務系システムまで
スマホアプリから業務系システムまで開発案件多数。システムエンジニア・プログラマーとしての多彩なキャリアパスがあります。
-
充実した研修制度
毎年、IT技術のトレンドや社員の要望に合わせて、カリキュラムを刷新し展開しています。社内講師の丁寧なサポートを受けながら、自分のペースで学ぶことができます。
-
資格取得を応援
スキルアップしたい社員を応援するために資格取得一時金制度を設けています。受験料(実費)と合わせて資格レベルに合わせた最大10万円の一時金も支給しています。
-
東証プライム上場企業グループ
オープンアップシステムは東証プライム上場「株式会社オープンアップグループ」のグループ企業です。
安定した経営基盤とグループ間のスムーズな連携でコロナ禍でも安定した雇用を実現させています。
株式会社オープンアップシステムに興味を持った方へ
株式会社オープンアップシステムでは、開発系エンジニア・プログラマを募集しています。
年収をアップしたい!スキルアップしたい!大手の上流案件にチャレンジしたい!
まずは話だけでも聞いてみたい場合もOK。お気軽にご登録ください。


新着案件New Job
開発エンジニア/東京都品川区/【WEB面談可】/在宅ワーク
月給29万~30万円東京都品川区(大崎駅)遠隔テストサービス機能改修/JavaScript/東京都港区/【WEB面談可】/テレワーク
月給45万~60万円東京都港区(六本木駅)病院内システムの不具合対応、保守/東京都豊島区/【WEB面談可】/テレワーク
月給30万~30万円東京都豊島区(池袋駅)開発/JavaScript/東京都豊島区/【WEB面談可】/テレワーク
月給50万~50万円東京都豊島区(大塚駅)債権債務システム追加開発/東京都文京区/【WEB面談可】/在宅勤務
月給62万~67万円東京都文京区(後楽園駅)PMO/東京都豊島区/【WEB面談可】/在宅勤務
月給55万~55万円東京都豊島区(池袋駅)