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 婆婆高寿祝福语大全简短