gdjlc

培养良好的习惯,每天一点一滴的进步,终将会有收获。

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

某台服务器上,数据库每天的备份文件有好多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:\BackupScript\oldfiledelete.vbs
"起始于(可选)":C:\BackupScript

确定后,列表会出现一条任务。

 上面配置默认是每天执行一次,如果想要现在就执行,可以右键这条任务,会出现6个选项,点第1个的“运行”即可。

 

posted on 2021-02-08 16:11  gdjlc  阅读(1204)  评论(0编辑  收藏  举报