[问题求助] vbs判断文件是否存在并判断其大小

zinet

求教一vbs命令
运行时判断 D:\Program Files\aa\bb.exe 文件是否存在且属性大于10kb  ，符合条件时就运行，否则回显“此文件已破坏请重新设置”

谢谢

broly

Dim fso,f,fpath

fpath = "D:\Program Files\aa\bb.exe"
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(fpath) Then
	Set f = fso.GetFile(fpath)
	If f.Size > 10*1024 Then
		CreateObject("wscript.shell").run fpath
	Else
		WScript.Echo "此文件已破坏请重新设置"
	End If
Else
	WScript.Echo "此文件已破坏请重新设置"
End If
复制代码

zinet

回复 2# broly


   测试可行，谢谢了