有一天pChao同学说：

标 题: 谁能帮忙告我这个功能怎么实现
发信站: 水木社区 (Fri Apr 27 21:52:43 2007), 站内

我需要定期清除指定目录内五天以前的文档
请问批处理文件能否做到？或者有其他程序可以做到？
请赐教，谢谢先！

我说：

标 题: Re: 谁能帮忙告我这个功能怎么实现(转寄)
发信站: 水木社区 (Sat May 12 20:39:11 2007)

才看到……

可以，用VBScript就可以做到。具体的实现，明天晚上我找个时间来做。就是不知道你求到答案没有……

于是，就有了这个东西：FileArchiver。

它的用途就是将当前目录下的过期文件移动到备份目录里，那样的话你想删想存就随便咯，呵呵。

源代码如下：
'过期文件清理器，为pChao同学定制的，hoho Dim <wbr>WshShell, <wbr>objShell, <wbr>objFSO, <wbr>objFolder, <wbr>strCurrentDirectory, <wbr>intMaxDays, <wbr>strFileExtension, <wbr>strDateStamp, <wbr>strUserDate, <wbr>strBackupFolder, <wbr>objItem Set <wbr>WshShell <wbr>= <wbr>WScript.CreateObject("WScript.Shell") Set <wbr>objShell <wbr>= <wbr>CreateObject("Shell.Application") Set <wbr>objFSO <wbr>= <wbr>CreateObject("Scripting.FileSystemObject") strCurrentDirectory <wbr>= <wbr>WshShell.CurrentDirectory Set <wbr>objFolder <wbr>= <wbr>objShell.Namespace(strCurrentDirectory) '在这里设置运行参数 'intMaxDays <wbr> <wbr> <wbr> <wbr> <wbr> <wbr> <wbr> <wbr> <wbr> <wbr>过期文件保存时间，默认为“3” 'strFileExtension <wbr> <wbr> <wbr> <wbr>被清理文件的扩展名，默认为“.txt”文件，请务必带上一个点。 '以下为参数设定 intMaxDays <wbr>= <wbr>3 strFileExtension <wbr>= <wbr>".txt" '以上为参数设定 strDateStamp <wbr>= <wbr>CStr(Year(Now)) If <wbr>Month(Now) <wbr><10 <wbr>Then <wbr>strDateStamp <wbr>= <wbr>strDateStamp <wbr>& <wbr>"0" strDateStamp <wbr>= <wbr>strDateStamp <wbr>& <wbr>CStr(Month(Now)) If <wbr>Day(Now) <wbr><10 <wbr>Then <wbr>strDateStamp <wbr>= <wbr>strDateStamp <wbr>& <wbr>"0" strDateStamp <wbr>= <wbr>strDateStamp <wbr>& <wbr>CStr(Day(Now)) strUserDate <wbr>= <wbr>InputBox("请提供一个时间点，在此时间之前生成的文件将被移动到备份目录中。", <wbr>"过期文件清理器", <wbr>CStr(Year(Now)) <wbr>& <wbr>"-" <wbr>& <wbr>CStr(Month(Now)) <wbr>& <wbr>"-" <wbr>& <wbr>CStr((Day(Now) <wbr>- <wbr>intMaxDays))) strUserDate <wbr>= <wbr>CDate(strUserDate) strBackupFolder <wbr>= <wbr>strCurrentDirectory <wbr>& <wbr>"\backup" <wbr>& <wbr>strDateStamp If <wbr>Not <wbr>objFSO.FolderExists(strBackupFolder) <wbr>Then <wbr>objFSO.CreateFolder(strBackupFolder) For <wbr>Each <wbr>objItem <wbr>in <wbr>objFolder.Items  <wbr> <wbr>If <wbr>InStr(LCase(objItem.name), <wbr>LCase(strFileExtension)) <wbr><> <wbr>0 <wbr>Then  <wbr> <wbr> <wbr> <wbr>Set <wbr>objFile <wbr>= <wbr>objFSO.GetFile(strCurrentDirectory <wbr>& <wbr>"\" <wbr>& <wbr>objItem.name)  <wbr> <wbr> <wbr> <wbr>strDateCreated <wbr>= <wbr>CDate(objFile.DateLastModified)  <wbr> <wbr> <wbr> <wbr>If <wbr>CInt(strUserDate <wbr>- <wbr>strDateCreated) <wbr>> <wbr>intMaxDays <wbr>Then  <wbr> <wbr> <wbr> <wbr> <wbr> <wbr>objFile.Move <wbr>(strBackupFolder <wbr>& <wbr>"\" <wbr>& <wbr>objItem.name)  <wbr> <wbr> <wbr> <wbr>End <wbr>If  <wbr> <wbr> <wbr> <wbr>Set <wbr>objFile <wbr>= <wbr>Nothing  <wbr> <wbr>End <wbr>If Next Set <wbr>WshShell <wbr>= <wbr>Nothing Set <wbr>objShell <wbr>= <wbr>Nothing Set <wbr>objFSO <wbr>= <wbr>Nothing Set <wbr>objFolder <wbr>= <wbr>Nothing WScript.Echo <wbr>"任务完成。" WScript.Quit