ƯÁ¤ ³¯Â¥µ¿¾È ÆÄÀÏÀ» Àаųª ¾²Áö ¾ÊÀº ¿À·¡µÈ ÆÄÀÏÀ» »èÁ¦ÇÏ´Â 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´Â ¸çÄ¥ °£ ¾×¼¼½ºÇÏÁö ¾ÊÀº °ÍÀ» ãÀ» Áö Á¤ÇÏ´Â °ªÀ̸ç, À©µµ¿ì Ž»ö±â¿¡¼ ÆÄÀÏ ¼Ó¼ºÀÇ
¾×¼¼½ºÇÑ ³¯Â¥¸¦ ±âÁØÀ¸·Î ÇÕ´Ï´Ù.
ÀÌÁ¦ ÀÌ ÆÄÀÏÀ» ´ÙÀ½ ¹æ¹ýÀ¸·Î ¸ÅÀÏ °°Àº ½Ã°£¿¡ ½ÇÇàÇÒ ¼ö ÀÖ½À´Ï´Ù.
- Á¦¾îÆÇ¿¡¼ ¿¹¾àµÈ ÀÛ¾÷À» ½ÇÇàÇÕ´Ï´Ù.
- ¿¹¾à ÀÛ¾÷ Ãß°¡¸¦ ½ÇÇàÇÕ´Ï´Ù.
- ¸¶¹ý»ç°¡ ½ÃÀÛµÇ¸é ´ÙÀ½À» ´©¸¨´Ï´Ù.
- ½ÇÇàÇÒ ÇÁ·Î±×·¥ÀÌ ³ª¿µÇ¾î ÀÖÁö ¾ÊÀ¸¹Ç·Î ã¾Æº¸±â ´ÜÃ߸¦ ´©¸¨´Ï´Ù.
- DelOldFiles.vbsÀÇ À§Ä¡¸¦ ¼±ÅÃÇÏ°í ¿±â¸¦ ´©¸¨´Ï´Ù.
- ÀÛ¾÷ À̸§Àº ¾Ë¾Æº¸±â ½±°Ô ¹Ù²Ù°Å³ª ±×³É µÎ¾îµµ µË´Ï´Ù.
- ÀÛ¾÷ ½ÇÇà¿¡¼ ¸ÅÀÏÀ» ¼±ÅÃÇÏ°í ´ÙÀ½À» ´©¸¨´Ï´Ù.
- ½ÇÇàÇÒ ½Ã°£À» ÀÔ·ÂÇÏ°í ´ÙÀ½À» ´©¸¨´Ï´Ù.
- »ç¿ëÀÚ À̸§°ú ¾ÏÈ£¸¦ ÀÔ·ÂÇÕ´Ï´Ù.
¿¹¾àÇÑ ½Ã°£ÀÌ µÇ¸é,
ÀÌ °èÁ¤ÀÇ »ç¿ëÀÚ°¡ DelOldFiles.vbs¸¦ ´õºí Ŭ¸¯ÇÏ¿© ½ÇÇàÇÑ °Í°ú ¸¶Âù°¡Áö·Î ½ÇÇàµË´Ï´Ù. - ¸¶Ä§À» ´©¸¨´Ï´Ù.
- ÀÏÁ¤À̳ª °èÁ¤, »ó¼¼ÇÑ Á¤º¸¸¦ È®ÀÎÇÏ·Á¸é ¸¸µé¾îÁø ÀÛ¾÷À» ´õºí Ŭ¸¯ÇÕ´Ï´Ù.
´ÙÀ½ÀÇ ¼Ó¼º ¹× ¸Þ¼µå¿¡ ´ëÇÑ »ó¼¼ÇÑ ³»¿ëÀº Windows 2000 Platform SDK¸¦ ÂüÁ¶ÇϽʽÿÀ.
- FileObjectÀÇ DateLastAccessed ¼Ó¼º
- FileObjectÀÇ Delete ¸Þ¼µå
- FileSystemObjectÀÇ DeleteFile ¸Þ¼µå
Microsoft Á¦Ç° °ü·Ã ±â¼ú Àü¹®°¡µé°ú ¿Â¶óÀÎÀ¸·Î Á¤º¸¸¦ ±³È¯ÇϽ÷Á¸é Microsoft ´º½º ±×·ì
(http://support.microsoft.com/newsgroups/default.aspx)
¿¡ Âü¿©ÇϽñ⠹ٶø´Ï´Ù.