특정 기간 동안 수정되지 않은 오래된 파일을 삭제하는 스크립입니다. 예약 작업을 지정해 놓을 경우 일정 주기로 파일을 삭제할 수 있습니다. KB에 공개된 스크립트입니다.
Option Explicit
Const strRootPath = "D:\99.Temp\Test\" ' 삭제할 파일이 포함된 폴더
Const nDays = 3 '현재 시간 기준으로 3일 경과한 파일 삭제 (초과일수)
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
[참고자료]
오래된 파일을 예약 작업으로 삭제하는 방법
http://support.microsoft.com/kb/822780/ko
안녕하세요, Scripting Guy! - 특정 날짜 이전의 모든 파일을 삭제하려면 어떻게 해야 하나요?
http://www.microsoft.com/korea/technet/scriptcenter/resources/qanda/nov04/hey1104.mspx
작성자 : Lai Go / 작성일자 : 2008.10.13
