vb.net中怎么判断一个word/excel/powerpoint文档是否关闭

vb.net中怎样判断一个word/excel/powerpoint文档是否关闭
vb.net中怎样判断一个word/excel/powerpoint文档是否关闭
[最优解释]

Private Function isopen(ByVal path_string As String) As Boolean
  Try
    Dim fs As New IO.FileStream(path_string, IO.FileMode.OpenOrCreate, IO.FileAccess.Read)
    fs.Dispose()
    Return False
  Catch ex As Exception
    Return True
  End Try
End Function

'下面是调用方法：
 If isopen("e:\1.doc") = True Then
     MsgBox("打开")
 Else
     MsgBox("未打开")
 End If