특정 기간 동안 수정되지 않은 오래된 파일을 삭제하는 스크립입니다. 예약 작업을 지정해 놓을 경우 일정 주기로 파일을 삭제할 수 있습니다. 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

Posted by 사용자 Lai Go

댓글을 달아 주세요