您当前的位置是:首页-ASP教程

用VBS删除过时的Sql Server 备份文件

【发表于】:2010/11/2 22:01:00  已被访问:95次
以下是引用片段:
  1. Set objFSO = CreateObject("Scripting.FileSystemObject")
  2.     BackupFolder = "e:\Microsoft SQL Server\MSSQL\BACKUP"    '备份文件路径
  3. Set objFolder = objFSO.GetFolder(BackupFolder)
  4. Set colSubfolders = objFolder.Subfolders
  5. For Each objSubfolder in colSubfolders
  6.     For Each File in ObjSubFolder.Files
  7.         if DateDiff("d",file.DateCreated,now()) > 30 then      '删除创建时间超过30天的文件
  8.             'MsgBox(File.name & vbcrlf & file.DateCreated & vbcrlf & file.Path)
  9.             ObjFSO.DeleteFile(File.Path)
  10.         end if
  11.     Next
  12. Next
 
上下篇: Web应用中缓存的七种武器 如何得到外网ip地址

最新推荐信息