다음 스크립트는 지정된 날짜가 경과한 특정 폴더의 특정 확장명을 가진 파일을 삭제하는 스크립트입니다.
D:\SQL\BACKUP 폴더에 있는 *.BAK 파일 중 최종 수정된 날짜가 2일이 경과한 파일을 삭제하는 스크립트입니다. 필요에 따라 굵게 표시된 부분을 수정해서 사용하시면 됩니다.
'Start
Option Explicit
on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oFileCollection
Dim oFile
Dim iDaysOld
Dim CurDir
Dim strExtension
'Definitions
iDaysOld = 2
strExtension = ".bak"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = CreateObject("WScript.Shell").CurrentDirectory
sDirectoryPath = "D:\SQL\Backup\"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
'Walk through each file in this folder collection.
For each oFile in oFileCollection
If oFile.DateLastModified < (Date() - iDaysOld) Then
If (strExtension="") Or (Right(UCase(oFile.Name), Len(strExtension))=UCase(strExtension)) Then
oFile.Delete(True)
End If
End If
Next
'Clean up
Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
'End
[참고자료]
Maintenance Cleanup Task
오래된 파일을 예약 작업으로 삭제하는 방법
작성자 : Lai Go / 작성일자 : 2009.09.09
