如何判断文件是否已经打开

2002-06-26 02:22:55 142 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Sony DPT RP1/CP1破解攻略前言自己有一台Sony DPT CP1和一台kindle，两个都已经用了很多年。直到最近发现微信读书上经常可以找到一些免费而且不错的书，所以就萌生了在两台机器上使用微信读书的想法。kindle比较容易实现，直接打开内置浏览器，进入微信读书网页版就行了，而Sony的电纸书则只能通过破解+安装微信读书的方式实现。大概弄了两三个小时吧，也遇到了一些问题，所以这里记录一下整个过程，希望能方便后来的使用者。首先感谢HappyZ, osc_t5nbj8ds。前者是提供公开破解的方法的大神，后者则是解决了我遇到的问题阅读详情

例如在excel中已经打开此文件，在VB中如何判断此文件已经被打开？

...全文

密评实战：应用层数据安全防护全解析本文从实战角度深度解析三级信息系统密评中应用层数据安全防护的核心要点。围绕身份鉴别、访问控制、数据传输与存储安全、不可否认性等关键环节，结合国密算法（SM2/SM3/SM4）与智能密码钥匙等合规技术，提供了从代码审查、日志分析到流量验证的全链路排查方法，助力构建真正符合密评标准的数据安全防线。阅读详情

bbschat

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lvjack 2002-06-26

打赏
举报

可不可以根据同一目录下是否有临时文件生成判断

access和word都有文件生成而且名字跟打开的文件名有关系，excel好像也有，没太注意

qhzxcz 2002-06-26

打赏
举报

更精确一点:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim MyXL As Object
Set MyXL = GetObject("C:\My Documents\Book2.xls")

MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
Dim hWnd As Long

hWnd = FindWindow("XLMAIN", "Microsoft Excel - Book2.xls")

If hWnd <> 0 Then '0 表示没有 Excel 在运行。
MsgBox "已在运行"
End If
End Sub

qhzxcz 2002-06-26

打赏
举报

主要是使用FindWindow

qhzxcz 2002-06-26

打赏
举报

先在工程中引用"excel8.0",在参考如下代码

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim MyXL As Object
Set MyXL = GetObject("C:\My Documents\Book2.xls")

MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
Dim hWnd As Long

hWnd = FindWindow(vbNullString, "Microsoft Excel - Book2.xls")

If hWnd <> 0 Then '0 表示没有 Excel 在运行。
MsgBox "已在运行"
End If
End Sub

billkay 2002-06-26

打赏
举报

关注

chenyu5188 2002-06-26

打赏
举报

UP…！！！

bbschat 2002-06-26

打赏
举报

suntt 2002-06-26

打赏
举报

同意楼上

Sean918 2002-06-26

打赏
举报

使用api函数createfile：
1. 如果文件是以独占方式打开，则系统会自动报提示。
2. 如果不是以独占方式打开，可以尝试修改文件并保存。系统不会给权限保存，所以会报错，这时可以用错误捕获来获得文件处理信息。

＝＝＝＝＝＝＝仅供参考＝＝＝＝＝＝＝＝

如何判断文件是否已经打开

相关推荐