지정된 폴더와 하위 폴더에서 파일을 삭제하는 스크립트

'3일지난 파일 자동 삭제하는 스크립트

Option Explicit

 

'삭제할 파일이 있는 폴더 지정 및 날짜 지정

Const strRootPath = "D:\My Downloads\aaa\tst"

Const nDays = 3

 

Dim oFSO

Set oFSO = CreateObject("Scripting.FileSystemObject")

 

Dim oFolder, oSubFolder, oSubFolder2

Set oFolder = oFSO.GetFolder(strRootPath)

 

Dim oFile

'지정된 폴더 안의 파일 삭제

For Each oFile In oFolder.Files

If Int(Now() - oFile.DateLastAccessed) >= nDays Then

oFile.Delete

End If

Next

 

'지정된 폴더의 하위 폴더 안의 파일 삭제

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

 

'지정된 폴더의 하위 폴더의 하위 폴더 안의 파일 삭제

For Each oSubFolder2 In oFolder.SubFolders

For Each oSubFolder In oSubFolder2.SubFolders

For Each oFile In oSubFolder.Files

If Int(Now() - oFile.DateLastAccessed) >= nDays Then

oFile.Delete

End If

Next

Next

Next