7,785
社区成员
发帖
与我相关
我的任务
分享如何获取文件的状态
在程序里要对某文件进行拷贝/复制等操作,希望在操作前获取文件状态(是否打开等),本想用api中的GetFileAttributes的但发现不行,不知有什么好办法
...全文
请发表友善的回复…
发表回复
射天狼 2003-11-26
- 打赏
- 举报
不行!
zsx108 2003-11-26
- 打赏
- 举报
Public Function FileAllowOpen(Filename as string)
on error goto e
open filename for input as #1 len = 1
close #1
fileallowopen=true
exit sub
e:
err.clear
''为了防止因为文件不存在而造成读写错误
open filename for random as #1 len = 1
if lof(1) = 0 then fileallowopen=true else filenameopen=false
close #1
End Public
on error goto e
open filename for input as #1 len = 1
close #1
fileallowopen=true
exit sub
e:
err.clear
''为了防止因为文件不存在而造成读写错误
open filename for random as #1 len = 1
if lof(1) = 0 then fileallowopen=true else filenameopen=false
close #1
End Public
zsx108 2003-11-26
- 打赏
- 举报
自己写一个函数
Rem 如果文件未被打开，则返回True，否则返回False
Public Function FileAllowOpen
End Public
Rem 如果文件未被打开，则返回True，否则返回False
Public Function FileAllowOpen
End Public
