某台服务器上,数据库每天的备份文件有好多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、点击开始菜单--计划任务程序,打开后,右键“任务计划程序库”--创建任务,输入名称,并勾选下面的几个选项(不管用户是否登录都要运行、不存储密码、使用最高权限运行)。