다음 스크립트는 지정된 날짜가 경과한 특정 폴더의 특정 확장명을 가진 파일을 삭제하는 스크립트입니다.

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
Posted by 사용자 Lai Go

댓글을 달아 주세요