删除IIs日志脚本

'path 目录 'ext 文件扩展名 'expiredDays 保留多少天以内的文件 Sub LogCleaner(path,ext,expiredDays) On Error Resume Next 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 "C:/WINDOWS/system32/LogFiles/","log",30