posts - 22, comments - 5, trackbacks - 0, articles - 11

MS SQL 自动删除旧的数据库备份文件

Posted on 2010-06-28 11:44 疯狂水车 阅读(200) 评论(0)  编辑 收藏 引用 所属分类: MSSQL思考

MS SQL 自动删除旧的数据库备份文件,你可以把下面这段代码放进sql的DTS里面的vbs控件,然后用jobs控制什么时候运行,也可以另保存为vbs文件。然后用windows的Scheduled Tasks 来运行。

iDaysOld = 7 
strPath 
= "D:\DatabaseBackup"  

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder(strPath)  
Set colSubfolders = objFolder.Subfolders  
Set colFiles = objFolder.Files  

For Each objFile in colFiles  
   
If objFile.DateLastModified < (Date() - iDaysOld) Then  
       
MsgBox "Dir: " & objFolder.Name & vbCrLf & "File: " & objFile.Name 
       
'objFile.Delete  
   End If  
Next  


For Each objSubfolder in colSubfolders  
   
Set colFiles = objSubfolder.Files  
   
For Each objFile in colFiles  
       
If objFile.DateLastModified < (Date() - iDaysOld) Then  
           
MsgBox "Dir: " & objSubfolder.Name & vbCrLf & "File: " & objFile.Name 
           
'objFile.Delete  
       End If  
   
Next  
Next 

把strPath="D:\DatabaseBackup"改成你备份的数据库文件。
如果你要真正运行就把MsgBox关掉,把objFile.Delete开启。
只有注册用户登录后才能发表评论。