掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
CSVファイルが使用中か確認する方法 (ID:145150)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
返事が遅くなりました。 try〜catch〜end try でのエラートラップについて勉強してみました。 下記のようにして、ファイルが開けなければエラーメッセージを表示することとしました。 また、それ以外の例外も取得できるようにしました。 Dim fs As System.IO.FileStream Dim strFPath As String = "ファイルパス" Try fs = New System.IO.FileStream(strLastMon, IO.FileMode.Open, IO.FileShare.ReadWrite) fs.Close() Catch ex As System.IO.IOException MsgBox(System.IO.Path.GetFileName(strFPath) & "は既に別のプロセスで起動しています。" & vbNewLine & "別のプロセスを終了させてから再実行してください。") Exit Sub Catch ex As Exception MsgBox("ファイルの入出力でエラーが発生しました。" & vbNewLine & ex.Message) Exit Sub Finally If Not (fs Is Nothing) Then fs.Close() End If End Try エラー処理に関して、奥が深いのですね・・。 ヒントありがとうございました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.