不断寻找文件,当文件存在时,运行命令

时间:2013-05-02 15:01:44

标签: vbscript monitor

我需要一个监视特定文件的文件夹的vbscript,当发现文件需要执行命令然后删除该文件但是再次监视该文件夹以获取需要再次运行的同一文件。

此...

Set FSO = CreateObject("Scripting.FileSystemObject")
Do While 1>0
   If FSO.FileExists (file.txt) Then 
       FSO.DeleteFile (file.txt)
       CreateObject("WScript.Shell").Run "c:\windows\notepad.exe"
   End If
   WScript.Sleep 1000
Loop

给我一​​个“需要对象:文件”错误

更新,这有效......

FileName = "c:\vbscript\cat.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
   If FSO.FileExists(FileName) Then 
       FSO.DeleteFile FileName
       CreateObject("WScript.Shell").Run "c:\windows\notepad.exe"
   End If
   WScript.Sleep 1000
Loop

1 个答案:

答案 0 :(得分:2)

只需创建一个无限循环的脚本,测试文件是否存在以及是否删除它。

FileName = "Path\To\FileName"
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
   If FSO.FileExists(FileName) Then 
       FSO.DeleteFile FileName
   End If
   WScript.Sleep 1000
Loop