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