±â¼ú ÀÚ·á: 822780 - ¸¶Áö¸· °ËÅä: 2003³â 6¿ù 11ÀÏ ¼ö¿äÀÏ - ¼öÁ¤: 1.0

¿À·¡µÈ ÆÄÀÏÀ» ¿¹¾à ÀÛ¾÷À¸·Î »èÁ¦ÇÏ´Â ¹æ¹ý

½Ã½ºÅÛ ÆÁº» ¹®¼­ÀÇ ³»¿ëÀº ±ÍÇϰ¡ »ç¿ëÇÏ´Â ¿î¿µ üÁ¦¿Í ´Ù¸¥ ¿î¿µ üÁ¦¿¡ ÇØ´çÇÕ´Ï´Ù. ¹®¼­ ³»¿ë Áß ±ÍÇÏ¿Í °ü·Ã ¾ø´Â ºÎºÐÀº Ç¥½ÃµÇÁö ¾Ê½À´Ï´Ù.
¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

¿ä¾à

ƯÁ¤ ³¯Â¥µ¿¾È ÆÄÀÏÀ» Àаųª ¾²Áö ¾ÊÀº ¿À·¡µÈ ÆÄÀÏÀ» »èÁ¦ÇÏ´Â VBScript¸¦ ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¹¾àµÈ ÀÛ¾÷À¸·Î ÀÏÁ¤À» Á¤ÇÏ¿© ¸ÅÀÏ Á¤ÇØÁø ½Ã°£ ¶Ç´Â ÀÏÁ¤ °£°ÝÀ¸·Î ÀÌ ÆÄÀÏÀ» ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù.

Ãß°¡ Á¤º¸

´ÙÀ½°ú °°Àº VBScript¸¦ ÀÛ¼ºÇÕ´Ï´Ù.

DelOldFiles.vbs

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
ÀÌ ½ºÅ©¸³Æ®¿¡¼­ ´ÙÀ½ÀÇ 3Çà°ú 4ÇàÀ» ½ÇÁ¦ »óȲ¿¡ ¸Â°Ô ¼öÁ¤ÇØ¾ß ÇÕ´Ï´Ù.
Const strRootPath = "C:\Temp\"
Const nDays = 10
strRootPath´Â ¾î¶² Æú´õ¿Í ±× ÇÏÀ§ Æú´õ¸¦ °Ë»öÇÒ °ÍÀÎÁö ÁöÁ¤ÇÕ´Ï´Ù. nDays´Â ¸çÄ¥ °£ ¾×¼¼½ºÇÏÁö ¾ÊÀº °ÍÀ» ãÀ» Áö Á¤ÇÏ´Â °ªÀ̸ç, À©µµ¿ì Ž»ö±â¿¡¼­ ÆÄÀÏ ¼Ó¼ºÀÇ ¾×¼¼½ºÇÑ ³¯Â¥¸¦ ±âÁØÀ¸·Î ÇÕ´Ï´Ù.

ÀÌÁ¦ ÀÌ ÆÄÀÏÀ» ´ÙÀ½ ¹æ¹ýÀ¸·Î ¸ÅÀÏ °°Àº ½Ã°£¿¡ ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù.
  1. Á¦¾îÆÇ¿¡¼­ ¿¹¾àµÈ ÀÛ¾÷À» ½ÇÇàÇÕ´Ï´Ù.
  2. ¿¹¾à ÀÛ¾÷ Ãß°¡¸¦ ½ÇÇàÇÕ´Ï´Ù.
  3. ¸¶¹ý»ç°¡ ½ÃÀÛµÇ¸é ´ÙÀ½À» ´©¸¨´Ï´Ù.
  4. ½ÇÇàÇÒ ÇÁ·Î±×·¥ÀÌ ³ª¿­µÇ¾î ÀÖÁö ¾ÊÀ¸¹Ç·Î ã¾Æº¸±â ´ÜÃ߸¦ ´©¸¨´Ï´Ù.
  5. DelOldFiles.vbsÀÇ À§Ä¡¸¦ ¼±ÅÃÇÏ°í ¿­±â¸¦ ´©¸¨´Ï´Ù.
  6. ÀÛ¾÷ À̸§Àº ¾Ë¾Æº¸±â ½±°Ô ¹Ù²Ù°Å³ª ±×³É µÎ¾îµµ µË´Ï´Ù.
  7. ÀÛ¾÷ ½ÇÇà¿¡¼­ ¸ÅÀÏÀ» ¼±ÅÃÇÏ°í ´ÙÀ½À» ´©¸¨´Ï´Ù.
  8. ½ÇÇàÇÒ ½Ã°£À» ÀÔ·ÂÇÏ°í ´ÙÀ½À» ´©¸¨´Ï´Ù.
  9. »ç¿ëÀÚ À̸§°ú ¾ÏÈ£¸¦ ÀÔ·ÂÇÕ´Ï´Ù.
    ¿¹¾àÇÑ ½Ã°£ÀÌ µÇ¸é, ÀÌ °èÁ¤ÀÇ »ç¿ëÀÚ°¡ DelOldFiles.vbs¸¦ ´õºí Ŭ¸¯ÇÏ¿© ½ÇÇàÇÑ °Í°ú ¸¶Âù°¡Áö·Î ½ÇÇàµË´Ï´Ù.
  10. ¸¶Ä§À» ´©¸¨´Ï´Ù.
  11. ÀÏÁ¤À̳ª °èÁ¤, »ó¼¼ÇÑ Á¤º¸¸¦ È®ÀÎÇÏ·Á¸é ¸¸µé¾îÁø ÀÛ¾÷À» ´õºí Ŭ¸¯ÇÕ´Ï´Ù.

ÂüÁ¶

´ÙÀ½ÀÇ ¼Ó¼º ¹× ¸Þ¼­µå¿¡ ´ëÇÑ »ó¼¼ÇÑ ³»¿ëÀº Windows 2000 Platform SDK¸¦ ÂüÁ¶ÇϽʽÿÀ.
  • FileObjectÀÇ DateLastAccessed ¼Ó¼º
  • FileObjectÀÇ Delete ¸Þ¼­µå
  • FileSystemObjectÀÇ DeleteFile ¸Þ¼­µå




Microsoft Á¦Ç° °ü·Ã ±â¼ú Àü¹®°¡µé°ú ¿Â¶óÀÎÀ¸·Î Á¤º¸¸¦ ±³È¯ÇϽ÷Á¸é Microsoft ´º½º ±×·ì (http://support.microsoft.com/newsgroups/default.aspx) ¿¡ Âü¿©ÇϽñ⠹ٶø´Ï´Ù.

º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Windows 2000 Professional Edition
  • Microsoft Windows 2000 Server
  • Microsoft Windows 2000 Advanced Server
Ű¿öµå:?
kbhowto KB822780