删除IIS日志及备份VBS

 好久没登录服务器，上去一看发现120G的某分区剩余空间为0!首先想到的是IIS日志和数据库备份，果不其然，IIS日志以每天200M的速度增长，且由于数据库每天做完全备份，两者加起来每天差不多增加1G的硬盘开销，庆幸发现得比较及时。不敢怠慢，在网上搜索了一下相关解决方法，整理并修改脚本如下(deliislogs.vbs)：


'path        目录
'ext         文件扩展名
'expiredDays 保留多少天以内的文件
Sub LogCleaner(path,ext,expiredDays)

    Set oFso = CreateObject("Scripting.FileSystemObject")
    
    If Not oFso.FolderExists(path) Then Exit Sub '目录不存在退出
    
    Set oFolder = oFso.GetFolder(path)
    
    For Each oFile In oFolder.Files '处理目录下所有文件
    
        '判断文件类型及最后修改日期
        If right(oFile.name,3)=ext And DateDiff("d",oFile.DateLastModified,Date) > expiredDays Then oFile.delete
        
    Next
      
    For Each oSubFolder In oFolder.SubFolders '递归处理子文件夹
    
        LogCleaner oSubFolder.Path,ext,expiredDays
        
    Next

End Sub

'删除一个月之前的IIS日志
LogCleaner "F:/LogFiles","log",30

'删除一个月之前的网站备份
LogCleaner "D:/bak/site","zip",30

'删除一个月之前的数据库备份
LogCleaner "D:/bak/db","dmp",30

WScript.Echo "清理任务完成！"