오래된 항목 삭제하기 script

Option Explicit

Const strRootPath = "C:\Temp\"

Const nDays = 10 '초과일수

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFolder, oSubFolder

Set oFolder = oFSO.GetFolder(strRootPath)

Dim oFile

For Each oSubFolder In oFolder.SubFolders

For Each oFile In oSubFolder.Files

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

oFile.Delete

End If

Next

Next