VB Script 定期删除Web应用程序产生的Log
来源:互联网 发布:java 模拟post 编辑:程序博客网 时间:2024/06/07 08:49
早上同事转给我一封Mail说用户无法访问一个Web Servcie请我帮忙看看原因。 登录服务器查看Servcie已经是停止的,重启Servcie失败,查原因是Disk Space没有了。
原来这个应用程序每天都产生大量的Log文件也没有人清理过,从网上找了段脚步然后自己改了改做了一个Scheduled task job每天定时的清理旧的Log. Source Code如下:
'************ Start of Code **********************
Option Explicit
On Error Resume Next
Dim oFSO, oFolder, sDirectoryPath
Dim oFileCollection, oFile, sDir
Dim iDaysOld
On Error Resume Next
Dim oFSO, oFolder, sDirectoryPath
Dim oFileCollection, oFile, sDir
Dim iDaysOld
' Specify Directory Path From Where You want to clear the old files
sDirectoryPath = "C:\log"
' Specify Number of Days Old File to Delete
iDaysOld = 15
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDirectoryPath)
Set oFileCollection = oFolder.Files
Set oFolder = oFSO.GetFolder(sDirectoryPath)
Set oFileCollection = oFolder.Files
For each oFile in oFileCollection
'This section will filter the log file
If LCase(left(Cstr(oFile.Name), 8)) = "info.log" Then
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
End If
Next
If LCase(left(Cstr(oFile.Name), 8)) = "info.log" Then
If oFile.DateLastModified < (Date() - iDaysOld) Then
oFile.Delete(True)
End If
End If
Next
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
'**************** End of Code *******************
- VB Script 定期删除Web应用程序产生的Log
- Linux下产生日志并定期删除
- Script:创建一个job,通过存储过程定期删除数据的脚本
- script没有用</script>结尾产生的问题
- 删除web Log
- 定期清理服务器log的脚本
- 在vb.net编写的应用程序中取得由MS-SQL存储过程产生的值
- VB Script
- VB Script
- script:查看redo产生的历史信息
- VB应用程序的打包
- 一段病毒常用的vb script脚本
- hadoop日志分析系统二 第一部分 利用任务调度系统定期的把web系统所产生的日志文件导入到hdfs中
- SQL2005自动备份,定期删除的维护计划及自动定期清除日志
- 在web应用程序中,执行new File("somedir").mkdirs()后产生的目录在哪里?
- MFC 产生log日志文件的问题
- tombstone的log产生和分析工具
- 定期删除服务器日志
- laodrunner 监控 linux
- Servlet 5 监听
- Eclipse 3.5 Classic+Tomcat 6.0+MySql 5.5搭建java web开发环境
- SQL Truncate table 权限
- RS8025 RTC实时时钟总结
- VB Script 定期删除Web应用程序产生的Log
- 海量查询的优化方法
- 寻找网页设计灵感的27个最佳网站推荐
- mysql临时表创建问题
- linux route 命令
- union的用法
- Autodesk以6000万美元收购移动视频共享应用Socialcam
- SQL Server TB 级别数据库文件快速初始化
- Iframe仿Ajax异步上传文件(图片)