［求助］：关于批处理中删除部分文件夹的问题

dea

我的问题是这么产生的：
在windows平台下，目前我采用批处理备份svn
  set BACKUP_SVN_ROOT=G:\bak  备份的目录
    set BACKUP_DIRECTORY=%BACKUP_SVN_ROOT%\%date:~0,10%  创建日期名文件夹，如 2008-05-06
计划任务中每天晚上自动执行，日积月累内容会比较多，我想自动删除部分不需要的备份
删除多于30个的文件夹，且只删除日期最久的，
请问有没什么脚本可以做到？

[[i] 本帖最后由 dea 于 2008-5-6 11:43 编辑 [/i]]

guodl

我觉得使用VBScript会方便些，思路供你参考：

我没有算备份目录中有多少个文件夹，我是检查每个文件夹的日期，如果日期超过30天，就将它删掉。

将下面的保存取一个名为Housekeep.vbs的文件，然后运行：
CScript //nologo Housekeep.vbs %BACKUP_SVN_ROOT% 30

1. Dim strPath  '　备份的目录
   
2. Dim dayKept  '　需要保留的时间，以天为单位
   
3. strPath=WScript.Arguments.Item(0)
   
4. dayKept=WScript.Arguments.Item(1)
   
5. 
   
6. Dim fileSystemObject, folderInfo, folderCollection, subFolder
   
7. 
   
8. Set fileSystemObject = CreateObject("Scripting.FileSystemObject")
   
9. Set folderInfo = fileSystemObject.GetFolder(strPath)
   
10. Set folderCollection = folderInfo.SubFolders
    
11. 
    
12. '列出备份目录的子文件夹
    
13. For Each subFolder in folderCollection
    
14.         ' 检查文件夹的修改时间，如果超过需要保留的时间，删除整个文件夹
    
15.         If (DateDiff("d", subFolder.DateLastModified, Now) > CInt(dayKept) ) Then
    
16.            fileSystemObject.DeleteFolder(subFolder)
    
17.         End If       
    
18. Next

复制代码

dea

谢谢兄弟!
明儿试试

guodl

其实删除的时间是一个参数：

CScript //nologo Housekeep.vbs 目录　保存的时间　

比如：

CScript //nologo Housekeep.vbs c:\bak  7

blackwhite

建议考虑betacopy,功能强大,定时,增量,免费.