判断文件是否被使用

    ''' <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