判断文件是否被使用

原创于 2014-02-28 16:53:10 发布 · 861 阅读

0 ·

CC 4.0 BY-SA版权

VB.net 专栏收录该内容

26 篇文章

订阅专栏

本文介绍了一个实用的函数，用于检查指定路径下的文件是否被其他进程锁定无法访问。通过尝试打开文件并捕获异常来判断文件是否可用。

    ''' <summary>
    ''' ファイル使用中チェック
    ''' </summary>
    ''' <param name="targetPath"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function IsFileLocked(ByVal targetPath As String) As Boolean
        Dim st As Stream = Nothing
        Try
            st = File.Open(targetPath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
        Catch ex As Exception
            Return True
        Finally
            If Not st Is Nothing Then
                st.Close()
            End If
        End Try
        Return False
    End Function