심재운 블로그

728x90
반응형

 

 

 

 

특정 폴더의 파일 특정 일정 기간 동안 파일 삭제하기

 

 

 

 

기술적인 부분 지원 드립니다. 아래 사항은 삭제할 폴더를 선택하고, 7일 기간 이후의 파일은 전부 삭제하는 vbs 입니다.

아래 사항을 메모장으로 xxx.vbs 로 만들어서 이를 windows 의 작업(job) 을 통해 하루 한번 처리하도록 하면 고객지원하는데 수월할 예정입니다. 기간은 고객(업체)와 상의 후 진행하시기 바랍니다.

감사합니다.

 

 

TempFolderPath = "C:\inetpub\logs\LogFiles\W3SVC21"  '삭제대상 폴더 경로 입니다.

 

NumberOfDays = 7 ' 7일 이전 폴더 및 파일 삭제 됩니다.

 

'Set objects & error catching

On Error Resume Next

Dim fso

Dim objFolder

Dim objFile

Dim objSubfolder

Set fso = CreateObject("Scripting.FileSystemObject")

Set objFolder = fso.GetFolder(TempFolderPath)

 

'DELETE all files in TempFolder Path older than x days

For Each objFile In objFolder.files

           If DateDiff("d", objFile.DateCreated,Now) > NumberOfDays Then

                     objFile.Delete True

           End If

Next

 

'DELETE all subfolders in TempFolder Path older than x days

For Each objSubfolder In objFolder.Subfolders

           If DateDiff("d", objSubfolder.DateCreated,Now) > NumberOfDays Then

                     objSubfolder.Delete True

           End If

Next

 

 

728x90
반응형

공유하기

facebook twitter kakaoTalk kakaostory naver band

본문과 관련 있는 내용으로 댓글을 남겨주시면 감사하겠습니다.

비밀글모드

loading