티스토리 뷰
strRootPath = 삭제한 디렉토리
nDays = 초과일수
Option Explicit Const strRootPath = "C:\inetpub\logs\LogFiles\W3SVC1\" ' 삭제할 파일이 들어 있는 디렉토리 Const nDays = 14 '초과일수 : 14일 경과한 파일 삭제 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 ' WScript.Echo oFile.Name & " Deleting" oFile.Delete End If Next ' 지정한 루트 디렉토리에 포함된 서브 디렉토리의 파일 삭제 For Each oSubFolder In oFolder.SubFolders WScript.Echo oFolder.name & " ??" For Each oFile In oSubFolder.Files If Int(Now() - oFile.DateLastAccessed) >= nDays Then oFile.Delete WScript.Echo oFile.Name & " 'Deleted'" End If Next Next
작업 스케줄러로 등록 시켜 놓고 사용
'컴퓨터 팁' 카테고리의 다른 글
빈폴더 삭제 batch (1) | 2016.01.07 |
---|---|
토렌트 트래커 사용방법 (1) | 2015.01.05 |
IIS 로그파일 자동 삭제 스크립트 (0) | 2014.12.23 |
Browsec 크롬 우회접속 확장 프로그램 (2) | 2014.11.09 |
이작업을 수행하기 위한 권한이 필요합니다 (0) | 2014.09.29 |
크롬 속도 빠르게 하기 (1) | 2014.08.28 |
댓글
공지사항
최근에 달린 댓글
링크
TAG
- Your Uninstaller!
- 패턴
- 유즈맵
- 티스토리 초대
- Internet Download Manager
- HyperSnap
- 티스토리초대
- icon
- PSP 바탕화면
- 파이트 오브 캐릭터즈
- 포토샵
- PSP 배경
- EVEREST
- PSP 배경화면
- UltraEdit
- 스타
- Error Repair Professional
- 아이콘
- EditPlus
- 밀리맵
- Portable
- Total Commander
- EVEREST Ultimate Edition
- 파오캐
- WinRAR
- 일러스트레이터
- 브러시
- 티스토리 초대장
- EVEREST Ultimate Engineer Edition
- IDM