'180ÀÏÀÌ Áö³­ ·Î±× ÆÄÀÏÀ» »èÁ¦ÇÏ´Â VB½ºÅ©¸³Æ® Option Explicit ' »èÁ¦ÇÒ »çÀÌÆ® ·Î±× ÆÄÀϵéÀÌ ÀÖ´Â Æú´õ¸íÀ» ÀúÀåÇÒ º¯¼ö Dim strRootPath ' Æú´õ¸í ÀúÀå º¯¼ö¿¡ ½ÇÁ¦ Æú´õ¸í ¹®ÀÚ¿­À» ÀúÀå. WScript.arguments.item(0)Àº VB½ºÅ©¸³Æ® ½ÇÇà ½Ã, ' ù¹ø° ÀÎÀÚ(Parameter)¸¦ °¡Á®¿É´Ï´Ù. ' Àú´Â »çÀÌÆ®ID¸¦ ¹Þ¾Æ¿À±â À§ÇØ strRootPath = "D:\LogFiles\W3SVC" & WScript.arguments.item(0) & "\" ' WScript.echo strRootPath - Æú´õ¸íÀ» AlertâÀ¸·Î ¶ç¿ò. °³¹ß¿ëÀ¸·Î »ç¿ëÇÏ°í, ÁÖ¼®Ã³¸® Const nDays = 180 ' 180À̶õ °ªÀ» nDays ¿¡ ÀúÀå (»ó¼ö) Dim wFSO Set wFSO = CreateObject("scripting.FileSystemObject") ' À¥¼­¹öÀÇ ÆÄÀÏ ½Ã½ºÅÛ¿¡ ¾×¼¼½ºÇÒ ¼ö ÀÖ´Â °´Ã¼ º¯¼ö »ý¼º Dim wFolder Set wFolder = wFSO.GetFolder(strRootPath) ' strRootPath¿¡ ÇØ´çÇÏ´Â Æú´õ Á¤º¸¸¦ °¡Áö´Â °´Ã¼ »ý¼º Dim wFile 'wFolder Æú´õ ³»¿¡ ÀÖ´Â ÆÄÀÏ »èÁ¦ ·çƾ (·çÇÁ) For Each wFile In wFolder.Files ' wFolder ³»¿¡ ÀÖ´Â ÆÄÀϵéÀ» ·çÇÁ¸¦ ÅëÇØ ¼øÂ÷ÀûÀ¸·Î Á¢±Ù If Int( Now() - wFile.DateLastModified ) >= nDays Then ' (¿À´Ã³¯Â¥ - ÇØ´ç ÆÄÀÏÀÇ ÃÖ±Ù ¼öÁ¤ ÀÏÀÚ)°¡ 180ÀϺ¸´Ù Å©¸é wFile.Delete ' ÆÄÀÏ »èÁ¦ End If Next