[TIP]윈도우 오라클 일정기간 지난 아카이브 로그파일 파일 자동 삭제 하기


 

  D:\ARCH_backup 이라는 경로 밑에 매일 날짜 폴더별로 백업파일이 쌓이고 있고, 담당자는 3일분의 백업본만을 원한다.

 

순서

  – strRootPath 상수에는 백업본 쌓이는 경로 지정

  – nDays 상수에는 몇일 이상에 대한 처리를 할 일자 지정

  – 해당 스크립트 파일을 예약된 작업 또는 작업 스케줄러에 등록

 

  arch_del.vbs

 

주의

  윈도우의 VBScript를 사용하는 것이므로 파일명은 마음대로 하나 확장자는 .vbs로 해야 함.

 

Option Explicit
Const strRootPath = “D:ARCH_backup”
Const nDays = 3

 

Dim oFSO
Set oFSO = CreateObject(“Scripting.FileSystemObject”)

 

Dim oFolder
Set oFolder = oFSO.GetFolder(strRootPath)

 

Dim oFold
Dim oFile

 

For Each oFold In oFolder.SubFolders
For Each oFile In oFold.Files
if int(Now() – oFile.DateCreated) >= nDays Then
oFile.Delete
End if
Next

 

if int(Now() – oFold.DateCreated) >= nDays Then
oFold.Delete
End if
Next

 

For Each oFile In oFolder.Files
if int(Now() – oFile.DateCreated) >= nDays Then
oFile.Delete
End if
Next


Comments

comments

haisins

오라클 DBA 박용석 입니다. haisins@gmail.com 으로 문의 주세요.

댓글 남기기

이메일은 공개되지 않습니다. 필수 입력창은 * 로 표시되어 있습니다