특정 디렉토리에 있는 파일중 7일 이전 파일 삭제하기

주로 로그파일에 적용되는 내용이다. 

Option Explicit

Const strRootPath = "C:\WORK\TEMP\" 

Const nDays = 7

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFolder, oSubFolder

Set oFolder = oFSO.GetFolder(strRootPath)

Dim oFile

' 지정한 루트 디렉토리의 파일 삭제

For Each oFile In oFolder.Files

If Int(Now() - oFile.DateLastModified) >= nDays Then

' WScript.Echo oFile.Name  & " Deleting"

oFile.Delete

End If

Next