[펌] 오래된 파일 삭제 vbscript

오래된 파일 삭제 vbscript

일정기간 이상 오래된 파일을  삭제하고자 할때,
다음 스크립트를 예약 작업관리자에 추가해 놓으면 정기적으로 삭제가 되는 스크립트 입니다.

Option Explicit

Const strRootPath = "C:\Temp\"
Const nDays = 10 '초과일수

Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFolder, oSubFolder
Set oFolder = oFSO.GetFolder(strRootPath)

Dim oFile
For Each oSubFolder In oFolder.SubFolders
 For Each oFile In oSubFolder.Files
  If Int(Now() - oFile.DateLastAccessed) >= nDays Then
   oFile.Delete
  End If
 Next
Next

위 코드에서, boid 부분만 수정하면 됩니다.

여기에 코드를 더 추가한다면.. 특정 확장자만 지운다던가,.. 여러가지 파일속성에 따라서 삭제하는 루틴을 추가할수도 있겠죠.. 파일속성은 MSDN을 참조하시면 됩니다.
재귀호출을 통한 최하위 디렉토리까지도 가능하고..

가장 요긴하게 쓰일부분이 IIS 로그파일 관리인듯 싶습니다.

서버주무르기[Serverinfo.pe.kr] 컨텐츠는 공유를 원칙으로 하고 있습니다. 다만, 상업적 이용은 사전 허락를 받야야 하며, 그 외의 경우 출처[웹사이트명&링크]를 필히 표기 해야 합니다.
http://www.serverinfo.pe.kr/TipnTech.aspx?Seq=242