vbs 定时删除功能实现代码
参考代码一：
FunctionDeleteLog()
DimobjFSO,objFolder,strPath,targetFSO,subFSO,DirPath
DirPath=createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\"
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SettargetFSO= objFSO.GetFolder(DirPath)
SetsubFSO=targetFSO.SubFolders
ForEachsubFolderinSubFSO IfDateDiff("d",subFolder.name,date)>3Then strPath=DirPath&subFolder.name objFSO.DeleteFolder(strPath) EndIf Next EndFunction CallDeleteLog() 这样在taskSchdeuler里面schedule我的vbs程序就没有报错啦。撒花，结贴~~