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程序就没有报错啦。撒花，结贴~~
热门推荐
10 简短祝福语蛋糕简笔画
11 结婚祝福语简短精辟横幅
12 小朋友祝福语简短的话
13 年后同事聚餐祝福语简短
14 男友红包祝福语简短精辟
15 考试祝福语简短给对象
16 给女老板简短祝福语
17 上司生日祝福语简短 女性
18 小清新的祝福语简短