archive1 archive file 자동 삭제 스크립트-window 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 oFile In oFolder.Files If Int(Now() - oFile.DateLastAccessed) >= nDays Then oFile.Delete End If Next ------------------------------------------------ 확장자 vbs로 저장 oFile.DateLastAcc.. 2008. 10. 7. 이전 1 다음