如何编写VB任务脚本来检查何时不再使用文件？

Question

是否有某个事件在某个进程正在使用的特定文件不再被使用时触发？如果没有事件，是否有另一种方法可以以可以触发任务的方式检测到这种情况？

Answer 1

试试这段代码：

Dim file
Dim app

file = "C:\Test\file.xlsx"
app = "notepad.exe"
On Error Resume Next
Do
    CreateObject("Scripting.FileSystemObject").MoveFile file, file
    If Err <> 70 Then Exit Do ' 70 - Access denied
    Err.Clear
    WScript.Sleep 1
Loop
CreateObject("WScript.Shell").Run app

一旦启动，脚本会一直等到file空闲，然后运行app并退出。