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

Vbscript 不断查找文件,当文件存在时,运行命令,vbscript,monitor,Vbscript,Monitor,我需要一个vbscript,用于监视文件夹中的特定文件,当找到该文件时,需要执行命令,然后删除该文件,但继续监视文件夹中的同一文件,以防需要再次运行 这个 Set FSO = CreateObject("Scripting.FileSystemObject") Do While 1>0 If FSO.FileExists (file.txt) Then FSO.DeleteFile (file.txt) CreateObject("WScript.She

我需要一个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

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

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

-0.49用于在
FSO.DeleteFile(file.txt)
中使用伪(),使用
1>0
而不是
True
或简单的
Do。。循环
,并且没有引用(明显的)字符串文字“file.txt”。@Meoiswa-0.49表示讨厌的
1>0
,并且没有显示
文件名
是必须初始化的变量。@Ekkehard.Horner同意,我是在紧要关头写的,因为我被赶出了教室。@Meoiswa-请删除
文件名
赋值中的
集合
(字符串,而不是对象);窗口的路径分隔符是“\”。谢谢,我对vbscript不太熟悉。@Meoiswa+1的概念/想法、实施和努力,