すでにファイルが開かれている時のエラー回避

VB2010で、ファイルを開いていると下記のコードでエラーがでます。
Dim SR As New System.IO.StreamReader(AppPath & "諸元一覧.csv", System.Text.Encoding.Default)

「諸元一覧.csv」ファイルを閉じてください。
とメッセージを出し、ExitSubしたいのですが、
どういうコードにすればよいのでしょうか。
教えてください。よろしくお願いいたします。

No.2 ベストアンサー 回答者： MARU4812 回答日時： 2011/03/04 16:39

先の回答にあるように、ファイルを開いていてもエラーが出ない場合もあります。

ファイルがロックされている場合は IOException が発生するようなので、
Try ～ Catch で IOException をエラートラップする方法もあります。
(※ただのエラートラップではファイルが存在しない等の他のエラーと
　区別できませんので、エラーの種類まで限定してエラートラップします。)

この回答へのお礼

いつもよい回答ありがとうございます。
勉強になりました。
下記コードで対応しました。

Try
Dim SR As New System.IO.StreamReader(AppPath & "ROHR諸元一覧.csv", System.Text.Encoding.Default)
<処理>
Catch ex As System.IO.FileNotFoundException
MsgBox("「ROHR諸元一覧.csv」ファイルが同じ階層にありません。")
Me.Close()
Catch ex As System.IO.IOException
MsgBox("「ROHR諸元一覧.csv」ファイルが開いている可能性があります。")
Me.Close()
End Try

お礼日時：2011/03/08 15:38

No.1 回答者： ShowMeHow 回答日時： 2011/03/04 16:18

http://oshiete.goo.ne.jp/qa/4728300.html