如果d:\abc这个文件夹里 文件个数 小于5
msgbox "小于5"
如果大于等于5
msgbox "满足条件"
Set objfs=CreateObject("scripting.filesystemobject")
curpath=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))
Set objfol=objfs.GetFolder(curpath)
num=0
For Each f In objfol.Files