파일삭제 스크립트(배치작업 위한)

비베스크립트로 작성된 파일 삭제 스크립트

필요하신 분들은 받으셔서 vbs 확장자로 파일 만드시고 윈도우 스케쥴러 같은데 배치잡 거셔서 사용하세요~

내부에 대충 수정하시고 ㅎㅎㅎ

'//파일 삭제 스크립트

Option Explicit
  '// 경로지정
Const strRootPath="D:\Ora_data\archive"

  '// 삭제기준 일자지정
Dim nDays
nDays=90

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
    oFile.Delete
  End If
Next