0

我需要能够使用 corospoinding 文件运行命令。一个例子...

Eveytime cat.txt 出现在文件夹中，运行 notpad.exe 每次 cat2.txt 出现在文件夹中，运行 calc.exe

目前，下面的 vbs 运行良好，但仅适用于找到的一个文件。 

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 = "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
FileName = "c:\vbscript\cat2.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Do
   If FSO.FileExists(FileName) Then 
       FSO.DeleteFile FileName
       CreateObject("WScript.Shell").Run "c:\windows\calc.exe"
   End If
   WScript.Sleep 1000
Loop

但是我得到一个预期的循环错误，我做错了什么？

4

2 回答 2

2

让它像这样

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

   If FSO.FileExists("c:\vbscript\cat2.txt") Then 
       FSO.DeleteFile("c:\vbscript\cat2.txt")
       CreateObject("WScript.Shell").Run "c:\windows\calc.exe"
   End If
   WScript.Sleep 1000
Loop
于 2013-05-17T14:05:15.463 回答
0

你忘记关闭第一个 Do - Loop

于 2013-05-17T14:01:25.740 回答