自动化删除一定条件的文件夹

需求：因为公司长期以来备份文件后，都需要手懂删除备份的文件，每天的操作既繁琐而且浪费时间，所以现在想设计一个命令，能够在Schedule里设置，每天定时运行命令，删除N天之前的备份数据，而且生产删除日志。

下面把小弟写的命令和大家分享下：

1、首先在磁盘驱动器C下新建两个文件夹：C:\Script和C:\TestFolder，然后在C:\TestFolder下新建几个文件夹，C:\Script下有如下几个文件：1）、DeleteBackupFolder.cmd;2）、DeleteBackupFolder.vbs;3）、Log.txt

2、DeleteBackupFolder.vbs命令有如下内容：

On Error Resume Next

Dim strDate,objfld,objsflds,files

 

'保存数据库备份文件路径

strFolder = "C:\TestFolder"

strFolder1 = "C:\Script"

Set objfso = CreateObject("Scripting.FileSystemObject")

Set objfld = objfso.GetFolder(strfolder)

Set objsflds = objfld.SubFolders

 

'用于写入文本文件，并生成删除数据库备份报告

Const ForAppending = 8

 

'在scripts下创建一个空txt文件：Log.txt

Set objFile = objfso.OpenTextFile(strFolder1 & "\LOG.txt", ForAppending)

 

objFile.Write "================================================================" & VBCRLF & VBCRLF

objFile.Write "                     数据库备文件报告                " & VBCRLF

objFile.Write "                     日期: " &    FormatDateTime(Now(),1)   & "" & VBCRLF

objFile.Write "                     时间: " &    FormatDateTime(Now(),3)   & "" & VBCRLF & VBCRLF

objFile.Write "================================================================" & VBCRLF

 

'枚举备份文件目录

For Each objsfld In objsflds

        '获取要删除文件的文件名

                a=objsfld.Name

        'strDate = Split(objsflds.Name," ")

               

        '检查备份是否为n天以前

        'If DateDiff("d",strDate(0),Date) > 0 Then

                If DateDiff("d",objsfld.DateCreated,now()) >= 0 Then

                objfso.DeleteFolder objsfld

                        objFile.WriteLine "备份文件已删除: " & a

        End If

Next   

 

objFile.WriteLine "================================================================" & VBCRLF & VBCRLF

 

objFile.Close

 

Set objFile = Nothing

Set objfso = Nothing

Set objfld = Nothing

Set objsflds = Nothing

3、DeleteBackupFolder.cmd命令下有如下内容：

C:\Script\DeleteBackupFolder.vbs

4、先在C:\TestFolder下创建几个文件夹，如下图：

5、先进入sript目录下运行cmd脚本，随后会看到TestFolder目录下刚创建的文件 已经删除，而Log.txt文件会显示如下内容：

================================================================

 

                     数据库备文件报告               

                     日期: 2012年6月25日

                     时间: 22:16:04

 

================================================================

备份文件已删除: 新建文件夹

备份文件已删除: 新建文件夹 (2)

备份文件已删除: 新建文件夹 (3)

备份文件已删除: 新建文件夹 (4)

6、因为是做实验，所以我把vbs里的时间设置为大于或等于0（If DateDiff("d",objsfld.DateCreated,now()) >= 0），在实际生产环境中，可以设定自己要删除的时间，如删除一个星期之前的，把0改为7就OK。