vbs删除前一天数据库备份文件

在前人基础上略微修改，配合任务计划就可以自动管理您的备份文件了。

代码如下：

rem 删除昨天的数据库备份文件
rem 思路：删除所有包含昨天时间字符串的.bak文件

dtmYesterday = Date - 1 
strYear = Year(dtmYesterday) 

strMonth = Month(dtmYesterday)
If Len(strMonth) = 1 Then 
strMonth = "0" & strMonth 
End If

strDay = Day(dtmYesterday) 
If Len(strDay) = 1 Then 
strDay = "0" & strDay 
End If 

strYesterday = strYear & strMonth & strDay 

dim fso,folder_path,folder,files
set fso=createobject("scripting.filesystemobject")
rem set folder_path = "D:\temp"
rem set folder = fso.getfolder(folder_path)
set folder = fso.getfolder("D:\temp")
set files = folder.files

'outstr = strYesterday

for each file in files
  ext = fso.GetExtensionName(file)
  ext = lcase(ext) 'to_low_case
  fname = fso.GetFileName(file)
  fname=lcase(fname)
  if "bak" = ext and instr(fname,strYesterday) > 0 then
    'outstr = outstr & VBCrLf & file.path
    file.delete
  end if
next


'test_box=msgbox(outstr,3,"all file to be deleted:")

参考:

  http://zhidao.baidu.com/question/402986712.html 

  http://www.jb51.net/article/14899.htm

hanpp@fwxgx.com