某台服务器上,数据库每天的备份文件有好多GB,如果不定期删除,会很快占满硬盘空间。
所以需要一个定时任务,每天自动运行,定期执行删除掉一些备份文件。
下面为完整的过程。
1、准备好删除文件的脚本 oldfiledelete.vbs,下面文件是删除D:dbbak目录里面创建日期为10天前的文件
Dim fso, f, f1, fc, s ,ff ,strFilePath strFilePath="D:dbbak" Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(strFilePath) Set fc = f.Files For Each f1 in fc Set ff = fso.GetFile(strFilePath & "" & f1.name) if DateDiff("d",ff.DateCreated,now)>10 then ff.Delete end if Next Set fso = Nothing Set f = Nothing Set f = Nothing Set ff = Nothing
2、点击开始菜单--计划任务程序,打开后,右键“任务计划程序库”--创建任务,输入名称,并勾选下面的几个选项(不管用户是否登录都要运行、不存储密码、使用最高权限运行)。
3、点击“触发器”选项,根据实际需要配置,这里配置的是每天执行一次。
4、点击“操作”选项,在“程序或脚本”中浏览选择第1步vbs脚本的全路径,"起始于(可选)"输入vbs所在目录。
本人“程序或脚本”路径:C:BackupScriptoldfiledelete.vbs
"起始于(可选)":C:BackupScript
确定后,列表会出现一条任务。
上面配置默认是每天执行一次,如果想要现在就执行,可以右键这条任务,会出现6个选项,点第1个的“运行”即可。