Question

VB6 搜索文件并打开的代码 文件例如JPG，DPF，EXCEL等等

代码最好容易理解的，输入名称，按一键就可以打开文件

Answer 1

判断指定的WORD文档是否被打开的函数代码如下：
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
Dim objWordApp As Object
Dim objWordDoc As Object

On Error Resume Next '此句不能少

strDocName = UCase(strDocName)
Set objWordApp = GetObject(, "Word.Application")
For Each objWordDoc In objWordApp.Documents
If UCase(objWordDoc.FullName) = strDocName Then
WordDocIsOpen = True
Exit For
End If
Next
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Function

调用代码：
Private Sub main()

If WordDocIsOpen("e:/1.doc") Then
MsgBox "该文档已被打开"
Else
MsgBox "该文档未被打开"
End If
End Sub