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

请看下面代码:

On Error Resume Next

Dim fso,file,msg,f

Set fso=Wscript.CreateObject("Scripting.FileSystemObject")

Do

Do

file=InputBox("请输入文件路径","请输入","")

if file="" Then

Set fso=Nothing

file=""

msg=""

Wscript.Quit

End if

if fso.FileExists(file) Then

Exit Do

else

MsgBox "您指定的文件不存在,请重新输入.",0+48,"注意"

End if

Loop

Do

Set f=fso.GetFile(file)

f.Attributes=0

f.Delete

Set f=Nothing

if fso.FileExists(file) Then

msg=MsgBox("删除失败!",5+48,"注意")

if msg=2 Then Exit Do

else

MsgBox "删除成功!",0+64,"信息"

Exit Do

End if

Loop

Loop

采纳吧~

---