VB.NET:检测文本文件是否打开

Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "C:\example.txt"

        Try
            Dim fs As FileStream = File.Open(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            fs.Close()
            Console.WriteLine("文件未被打开")
        Catch ex As IOException
            Console.WriteLine("文件已被打开")
        End Try

        Console.ReadLine()
    End Sub
End Module