本文提供了一段VB代码，用于判断一个文件是否正在被其他程序占用或已打开。通过尝试以独占方式打开文件来检查，如果捕获到错误，则说明文件已被占用。
'以独占方式打开 如果捕获到错误就是被占用了
代码如下：
Private Function FileIsOpen(ByVal FilePath As String) As Boolean
Dim fFile As Integer
fFile = FreeFile
On Error GoTo ErrOpen
Open FilePath For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:
FileIsOpen = True
End Function
Dim fFile As Integer
fFile = FreeFile
On Error GoTo ErrOpen
Open FilePath For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:
FileIsOpen = True
End Function
摘自：网络整理
相关文章参考：
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）
★VB根据窗体自动调整窗体内控件大小 注：实用，可以直接引用
★Visual Basic编程常见问题及解答（1）
★Visual Basic编程常见问题及解答（2）
★Visual Basic编程常见问题及解答（3）
★VisualBasic变量、常数和数据类型及过程概述
★VB6的后期绑定和前期绑定
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编
★VB 在浏览器中打开指定网址
扫一扫
1756
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
