天下足球论坛

 找回密码
 注册会员

QQ登录

只需一步,快速开始

查看: 3193|回复: 0

IIS日志清理VBS版代码(DelIISLog.vbs)

[复制链接]
发表于 2010-5-1 19:36:29 | 显示全部楼层 |阅读模式
IIS日志清理VBS版代码(DelIISLog.vbs)
新建一个DelIISLog.vbs,然后添加到计划任务就好了
  1. 'IIS日志清理VBS版代码(DelIISLog.vbs)  Made by www.yongfa365.com
  2. '调用方法:DelIISLog "IIS日志所在路径",保留多少天的IIS日志

  3. '遍历IIS日志文件夹下的所有文件及子文件夹下的文件
  4. Function DelIISLog(IISLogPath,KeepDays)
  5. on error resume next
  6.     Set oFso = CreateObject("Scripting.FileSystemObject")
  7.     Set oFolder = oFso.GetFolder(IISLogPath)
  8.     Set oSubFolders = oFolder.SubFolders  '得到该目录下所有的文件夹的集合
  9.     Set oFiles = oFolder.Files '得到该目录下所有的文件的集合
  10.     '第一步处理当前目录下的所有文件
  11.     For Each oFile In oFiles '遍历所有文件
  12.         if right(oFile.name,3)="log" then
  13.                 oDate=cdate("20" & mid(oFile.name,3,2) & "-" & mid(oFile.name,5,2) & "-" & mid(oFile.name,7,2))
  14.                 if date-oDate > KeepDays then oFile.delete '判断是不是要处理的IIS日志文件,如果是的话直接删除
  15.         end if
  16.     Next
  17.     '第二步处理当前目录下的所有目录,进行递归调用
  18.     For Each oSubFolder In oSubFolders
  19.         DelIISLog oSubFolder.Path,KeepDays '递归
  20.     Next

  21. End Function

  22. DelIISLog "C:\WINDOWS\system32\LogFiles",5 '遍历
复制代码
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|天下足球直播网  

GMT+8, 2018-6-19 20:15 , Processed in 0.102139 second(s), 26 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表