Board logo

标题: [问题求助] vbs判断文件是否存在并判断其大小 [打印本页]
作者: zinet    时间: 2012-7-21 23:09     标题: vbs判断文件是否存在并判断其大小

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

谢谢
作者: broly    时间: 2012-7-22 19:44

  1. Dim fso,f,fpath

  2. 

  3. fpath = "D:\Program Files\aa\bb.exe"

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

  5. 

  6. If fso.FileExists(fpath) Then

  7. 	Set f = fso.GetFile(fpath)

  8. 	If f.Size > 10*1024 Then

  9. 		CreateObject("wscript.shell").run fpath

  10. 	Else

  11. 		WScript.Echo "此文件已破坏请重新设置"

  12. 	End If

  13. Else

  14. 	WScript.Echo "此文件已破坏请重新设置"

  15. End If
复制代码
作者: zinet    时间: 2012-7-23 09:19

回复 2# broly


   测试可行，谢谢了



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2