vbs脚本如何判断文件是否存在?

dim fs,s //定义fs、s两个变量\x0d\x0a\x0d\x0aset fs=wscript.createobject(“scripting.filesystemobject”) //fs为FSO实例\x0d\x0a\x0d\x0aif (fs.FileExits(“F:\Program Files\TTPlayer\TTPlayer.exe”)) then //判断文件是否存在\x0d\x0a\x0d\x0as=”is available”\x0d\x0a\x0d\x0aelse\x0d\x0a\x0d\x0as=”not exist”\x0d\x0a\x0d\x0aend if

FileA

=

"D:\Program

Files\aa\a.exe"

FileB

=

"D:\Program

Files\bb\b.exe" '

>

三个需要判断的文件路径

FileC

=

"D:\Program

Files\cc\c.exe"

FileOK

=

"ok.bat"

FileYes

=

"yes.bat" '

>

建议写出三个bat文件的具体路径，或者可以将三个bat文件跟vbs文件放一个文件夹

FileNo

=

"no.bat"

Do

set

Sh

=

CreateObject("Wscript.Shell")

Set

Ws

=

CreateObject("Scripting.FileSystemObject")

If

Ws.FileExists(FileA)

And

Ws.FileExists(FileB)

Then

Sh.Run

FileOK,0

Wscript.Quit

Else

If

Ws.FileExists(FileC)

Then

Sh.Run

FileYes,0

Else

Sh.Run

FileNo,0

Wscript.Quit

End

If

End

If

Wscript.sleep

500 '无限循环延时，可以根据情况更改，500表示0.5秒。

Loop

本机测速通过，还望采纳。

dim t,ws

t=0

set ws=createobject("wscript.shell")

do

t=t+1

wscript.sleep 1000

ws.run "C:\Windows\system32\cmd.exe /c if exist F:\程序.vbs tskill wscript & call F:\程序.vbs",0 

if t>300 then

 msgbox ("F盘文件不存在")

 exit do

end if

loop

wscript.quit

可能杀软会报毒，请添加信任后再使用。

---