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程序就没有报错啦。撒花，结贴~~
热门推荐
1 训练狗狗憋尿
2 狗狗追踪训练
3 狗狗训练要多少钱
5 深圳狗狗训练
6 训练狗狗唤回
7 狗狗叫怎么训练
8 狗狗训练班
10 狗狗社会化训练
11 狗狗叫回训练
12 广州狗狗训练学校
13 狗狗训练躺下
14 狗狗随行训练
15 训练狗狗巡回
16 狗狗要怎么训练
17 狗狗喂食训练
18 训练狗狗躺下