以下是引用czy在2010-8-20 20:17:00的发言: Dim FName As String = "文件路径及文件名" If FileSys.FileExists(FName) Then Try Dim f As New System.IO.FileStream(FName,IO.FileMode.Open,IO.FileAccess.Read,IO.FileShare.None) f.Dispose() Catch ex As Exception MessageBox.Show("目标文件处于打开状态") End Try