VB Script 定期删除Web应用程序产生的Log

发布时间：2020-12-16 22:25:09 所属栏目：大数据来源：网络整理

导读：早上同事转给我一封Mail说用户无法访问一个Web Servcie请我帮忙看看原因。登录服务器查看Servcie已经是停止的，重启Servcie失败，查原因是Disk Space没有了。原来这个应用程序每天都产生大量的Log文件也没有人清理过，从网上找了段脚步然后自己改了改做了

早上同事转给我一封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

' 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

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

Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing

'**************** End of Code *******************

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!