오래된 항목 (1) 썸네일형 리스트형 오래된 항목 삭제하기 script 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 이전 1 다음