用VB如何检测一个文件是否被其他程序打开了？

Question

什么文件类型?用FindWindow,和FindWindowText的API函数应该可以搞定!

Answer 1

任何类型，比如dat.txt吧，请给个例子，好用马上加分。

Answer 2

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Form_Load()
aa = FindWindow("Notepad", "dat.txt - 记事本")
If aa <> 0 Then
MsgBox "文件已经打开"
Else
MsgBox "文件没打开"
End If
End Sub98+vb6下通过,给分!

Answer 3

不对，我不知道那个程序在打开 dat.txt

Answer 4

如果是ACCESS查锁定文件就可以了

Answer 5

langzhi(langzhi)的想法很变通的！！
有趣！！