作者：绿色风
分类：
时间：2022-08-18
浏览：111
楼主
yjzstar |
Q:某共享文件夹中存在名为“测试.xlsx”的EXCEL文件，如何判断该文件是否被打开？
A:当共享文件中的文件被自己或局域网他人打开的时候，文件夹中会自动生成一个零时文件，而零时文件的名称则是原文件的基础上多了“~$”的前缀，当文件关闭的时候，此零时文件将自动删除；而利用文件对象模型FSO的FileExists方法，可以判断该零时文件是否存在，从而判断共享文件是否被打开！
具体代码如下：- Sub 测试()
- Dim str As String
- Dim fso As Scripting.FileSystemObject
- str = "C:\Documents and Settings\user\桌面\完全共享\~$测试.xlsx"
- Set fso = New Scripting.FileSystemObject
- If fso.FileExists(str) = True Then
- MsgBox "共享文件已经被打开！"
- Else
- MsgBox "共享文件没有被打开！"
- End If
- Set fso = Nothing
- End Sub
注：
1、需引用Microsoft Scripting Runtime项目
2、“测试.xlsx”是你共享的文件名称！
 判断共享文件是否被打开.rar
|
2楼
开心二点 |
分享学习ing |
3楼
Tomleej |
学习ing |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一