VB.NET Read/Writeを続行する前にファイルが開いているかどうかをチェックしますか？

Question

ファイルが開いていることを確認する方法はありますか？私が考えることができるのはTry/Catchですが、ファイルオープンの例外をキャッチできるかどうかを確認することができますが、ファイルが開いている場合にtrue/falseを返すメソッドがあると考えました。

現在、System.IOおよび次のコードをWalletという名前で使用しています。

Private holdPath As String = "defaultLog.txt" 
    Private _file As New FileStream(holdPath, FileMode.OpenOrCreate, FileAccess.ReadWrite) 
    Private file As New StreamWriter(_file) 

    Public Function Check(ByVal CheckNumber As Integer, ByVal CheckAmount As Decimal) As Decimal 
     Try 
      file.WriteLine("testing") 
      file.Close() 
     Catch e As IOException 
      'Note sure if this is the proper way. 
     End Try 

     Return 0D 
    End Function 

何か指摘します！ありがとうございました！！

Answer 1

Private Sub IsFileOpen(ByVal file As FileInfo) 
    Dim stream As FileStream = Nothing 
    Try 
     stream = file.Open(FileMode.Open, FileAccess.ReadWrite, FileShare.None) 
     stream.Close() 
    Catch ex As Exception 

     If TypeOf ex Is IOException AndAlso IsFileLocked(ex) Then 
      ' do something here, either close the file if you have a handle, show a msgbox, retry or as a last resort terminate the process - which could cause corruption and lose data 
     End If 
    End Try 
End Sub 

Private Shared Function IsFileLocked(exception As Exception) As Boolean 
    Dim errorCode As Integer = Marshal.GetHRForException(exception) And ((1 << 16) - 1) 
    Return errorCode = 32 OrElse errorCode = 33 
End Function 

Answer 2

このMSDN forum postingの2つの提案のいずれもファイルを開こうとしているようです。

最初のものはあなたが今やっているのと似ていますが、2番目はWindows API関数（CreateFile）を使用して、ファイルが使用中であることを示す無効なハンドルを確認します。いずれの場合も、ファイルが開いているかどうかを判断するためにエラー状態に頼っています。つまり、ではなく、というSystem.IO.File.IsOpenプロパティが使用されているので、使用しているメソッドは正しいと私の意見では思われます。

Answer 3

は本当にあなたはまだファイルが開かないケースを処理しようとするキャッチを持っている必要がありますので、関数「使用チェックであるファイルを」を使用しない点はありません。ファイルが開いているだけでなく、さらに多くの理由でファイルが開くことがあります。

また、チェックを行う機能を使用することは、成功を保証するものではありません。ファイルが開かれているときにエラーが発生しました。これは、チェックと他の誰かによって開かれたファイルを開こうとする間の時間のためです。