Set Objectfs = CreateObject("Scripting.FileSystemObject")
If Objectfs.FileExists(FileName) Then
'//文件存在
Else
'//文件乎弊禅岁尘卜悄不存在
End If
对要检测的文件拷贝一个备份
调用FileSystemObject的DeleteFile方法并世搏让判断返回值。若失搜局败则知道文件被占用,若成功删除再使用备份银仔还原。
最后确保移除备份。
欢迎分享,转载请注明来源:内存溢出
Set Objectfs = CreateObject("Scripting.FileSystemObject")
If Objectfs.FileExists(FileName) Then
'//文件存在
Else
'//文件乎弊禅岁尘卜悄不存在
End If
对要检测的文件拷贝一个备份
调用FileSystemObject的DeleteFile方法并世搏让判断返回值。若失搜局败则知道文件被占用,若成功删除再使用备份银仔还原。
最后确保移除备份。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)