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 婚前女儿生日祝福语简短