主题：利用FileSys.DeleteFile删除文件时,怎么提前判断文件是否处于打开状态?

标准代码:

Try
    Dim aa As New System.IO.FileStream("c:\book1.xls", IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)
    aa.Dispose()
    messagebox.show("没有人打开")
Catch ex As Exception
    messagebox.show("有人打开")
End Try