9

有没有办法验证文件是否打开?我唯一能想到的是Try/Catch看看我是否可以捕获文件打开异常,但我认为如果文件打开,可以使用一种方法来返回真/假。

目前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

任何指针将不胜感激!谢谢!!

4

3 回答 3

17
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

像这样称呼它:

Call IsFileOpen(new FileInfo(filePath))
于 2012-07-02T06:36:49.983 回答
7

使用'is file in use check'功能确实没有意义,因为您仍然需要try catch来处理文件无法打开的情况。文件打开失败的原因可能比它已经打开的原因更多。

同样使用函数进行检查也不能保证成功。'is file in use check' 可能仅在文件打开失败并出现文件已打开错误时返回 false,因为在检查和尝试打开文件之间的时间,它已被其他人打开。

于 2012-07-02T08:55:23.690 回答
2

看起来这个MSDN 论坛发布的两个建议都涉及尝试打开文件。

第一个类似于您现在所做的,第二个涉及使用 Windows API 函数 (CreateFile) 并检查表示文件正在使用的无效句柄。在这两种情况下,他们都依赖错误条件来确定文件是否打开。简而言之,我认为您使用的方法是正确的,因为没有System.IO.File.IsOpen 属性。

于 2012-07-02T04:53:40.210 回答