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

質問

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

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

回答No.2

MARU4812 · ベストアンサー

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

ファイルがロックされている場合は 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

回答No.1

ShowMeHow

http://okwave.jp/qa/q4728300.html