오래된 파일 자동 삭제

출처 : http://readysystem.co.kr/new/?doc=bbs/gnuboard.php&bo_table=data01&page=1&wr_id=38

아래 DelOldFiles.vbs 생성

새파일 만들기 이용 하여 파일 생성후 .vbs 파일 확장자로 변경

######################################################

DelOldFiles.vbs

######################################################
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

######################################################

 

이 스크립트에서 다음의 3행과 4행을 실제 상황에 맞게 수정해야 합니다. Const strRootPath = "C:\Temp\"
Const nDays = 10

strRootPath는 어떤 폴더와 그 하위 폴더를 검색할 것인지 지정합니다. nDays는 며칠 간 액세스하지 않은 것을 찾을 지 정하는 값이며, 윈도우 탐색기에서 파일 속성의 액세스한 날짜를 기준으로 합니다.

이제 이 파일을 다음 방법으로 매일 같은 시간에 실행할 수 있습니다. 1. 제어판에서 예약된 작업을 실행합니다. 
2. 예약 작업 추가를 실행합니다. 
3. 마법사가 시작되면 다음을 누릅니다. 
4. 실행할 프로그램이 나열되어 있지 않으므로 찾아보기 단추를 누릅니다. 
5. DelOldFiles.vbs의 위치를 선택하고 열기를 누릅니다.  
6. 작업 이름은 알아보기 쉽게 바꾸거나 그냥 두어도 됩니다. 
7. 작업 실행에서 매일을 선택하고 다음을 누릅니다. 
8. 실행할 시간을 입력하고 다음을 누릅니다. 
9. 사용자 이름과 암호를 입력합니다. 
예약한 시간이 되면, 이 계정의 사용자가 DelOldFiles.vbs를 더블 클릭하여 실행한 것과 마찬가지로 실행됩니다. 
10. 마침을 누릅니다. 
11. 일정이나 계정, 상세한 정보를 확인하려면 만들어진 작업을 더블 클릭합니다.