Question

VBS 检测文件的存在

用VBS 检测文件同同目录（C:\windows\system32)下文件 R.vbs是否存在，存在着运行，不存在什么也不做。

Answer 1

两句话f="C:\windows\system32\R.vbs"
if CreateObject("Scripting.FileSystemObject").FileExists(f) Then CreateObject("WScript.Shell").Run f

Answer 2

On Error Resume Nextset WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("C:\windows\system32\R.vbs")

Answer 3

Dim Wsh,fso
Set Wsh = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\WINDOWS\system32\calc.exe") Then '检测文件是否存在'
Wsh.Run "C:\WINDOWS\system32\calc.exe"End ifSet fso = Nothing
Set Wsh = Nothing

Answer 4

Dim Wsh
Set Wsh = Wscript.CreateObject("Wscript.Shell")
Dim Objectfs
Set Objectfs = CreateObject("Scripting.FileSystemObject")
If Objectfs.FileExists("C:\windows\system32\R.vbs") Then
Wsh.run"C:\windows\system32\R.vbs",0
else

End if