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

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

Posted on 2010-06-28 11:44 疯狂水车 阅读(302) 评论(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开启。
只有注册用户登录后才能发表评论。