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

不要提示就这样:

Try
    FileSys.DeleteFile("c:\data\fox2.jpg", 3, 3)
Catch ex As System.IO.IOException
End Try

标准代码:

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