通过SQL存储过程删除过期的数据库Bak备份文件

 

1.先启用 xp_cmdshell 扩展存储过程：

 

Use  Master
GO
Exec  sp_configure  ' show advanced options ' ,  1
GO
Reconfigure ;
GO
sp_configure  ' xp_cmdshell ' ,  1
GO
Reconfigure ;
GO

 (注：因为xp_cmdshell是高级选项，所以这里启动xp_cmdshell，需要先将 show advanced option 设置为 1，便可显示高级配置选项。

可以通过语句

Select  is_advanced  From  sys.configurations  Where  name = N ' xp_cmdshell '

 

查看是否高级选项。

)

 

 

 2.删除文件的存储过程：

If   object_id ( ' sp_DeleteFiles ' )  Is   Not   Null
     Drop   Proc  sp_DeleteFiles
Go
Create   Proc  sp_DeleteFiles
(
     @FilePath              nvarchar ( 128 ),
     @SearchPattern          nvarchar ( 200 ),
     @LastWriteTimeStart   datetime ,
     @LastWriteTImeEnd      datetime
)
As
Set  Nocount  On
Declare   @Cmd   nvarchar ( 2000 ),
         @OutputInfo   nvarchar ( 2000 ),
         @Dir   nvarchar ( 2000 ),
         @Date   datetime ,
         @FileName   nvarchar ( 512 )

Declare   @Tmp   Table (ID  int   Identity ( 1 , 1 )  Primary   Key , OutputInfo  nvarchar ( 2000 ))

Set   @Cmd = N ' Dir/A:-d/S/T:W/4  ' + @FilePath + N ' / ' + Rtrim ( @SearchPattern )  /* Dos显示文件代码 */
Insert   Into   @Tmp
     Exec  xp_cmdshell  @Cmd

Declare  Cur_dir  Cursor   For  
     Select  OutputInfo  From   @tmp    Where   Patindex ( ' %/% ' ,OutputInfo) > 0   Or   IsDate ( substring (OutputInfo, 1 , 10 )) = 1   /* 过滤只留目录和文件列表 */
Open  Cur_dir
Fetch   Next   From  Cur_dir  Into   @OutputInfo
While   @@Fetch_Status   =   0
Begin
     If   Patindex ( ' %/% ' , @OutputInfo ) > 0   /* 提取目录 */
         Set   @Dir = Substring ( @OutputInfo , 1 , Len ( @OutputInfo ) - Charindex ( Char ( 32 ), Reverse ( @OutputInfo )))
     Else
     Begin
         Set   @Date = Substring ( @OutputInfo , 1 , 10 )
         If   @Date   Between   @LastWriteTimeStart   And   @LastWriteTImeEnd
         Begin
             /* 不同的环境，如在繁体系统，这里取文件名的处理方法可能不同 */
             Set   @OutputInfo = Stuff ( @OutputInfo , 1 , 17 , '' )  /* 过滤掉日期部分 */
             Set   @OutputInfo = Stuff ( @OutputInfo , 1 , Patindex ( ' %[0-9]% ' , @OutputInfo ) - 1 , '' )  /* 过滤掉前缀的空格部分 */
             Set   @FileName = Stuff ( @OutputInfo , 1 , Charindex ( Char ( 32 ), @OutputInfo ), '' )  /* 取得文件名 */
             Set   @Cmd = N ' Del  ' + @Dir + N ' / ' + @FileName
             Exec  xp_cmdshell  @Cmd ,No_output
             Print  N ' 已删除文件： ' + @Dir + N ' / ' + @FileName
         End
     End
     Fetch   Next   From  Cur_dir  Into   @OutputInfo
End
Close  Cur_dir
Deallocate  Cur_dir
Go

 

 

 

 3. 测试：

Exec  sp_DeleteFiles  ' F:/test ' , ' *.exe ' , ' 20011001 ' , ' 20091119 '

/*
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_071101.exe
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_080127.exe
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_080326.exe
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_080328.exe
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_080504.exe
已删除文件： F:/test/Gao/高2009-8-14/B2000HR_FuXing_CHN_060406/HR_FuXing_080628.exe

*/