batch-file - 递归搜索子文件夹并删除子文件夹中超过6个月的所有文件

Question

我们有这样的目录结构

..\文档名称_存档\YYYY\月份名称

例如，我们有许多子文件夹(在不同的文档名称文件夹中)，名为\2014\January ... 等

我们希望删除创建日期超过 180 天的所有文件夹及其内容。

我们更愿意只使用批处理文件脚本，但如果我们需要递归搜索，也许 VBScript 更好。

请问最好的方法是什么？

Answer 1

这是一个使用递归函数的 VBScript 解决方案。

' Global FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Start at the root
DoFolder "c:\document_root\"

' Recursive function
Sub DoFolder(strFolder)

    With objFSO.GetFolder(strFolder)

        For Each objFile In .Files
            If objFile.DateCreated < Date - 180 Then objFile.Delete
        Next

        For Each objFolder In .SubFolders
            DoFolder objFolder.Path
        Next

        ' Checked every file and subfolder. If this folder is empty, remove it...
        If .Files.Count = 0 Then If .SubFolders.Count = 0 Then .Delete

    End With

End Sub

参见this post使用 forfiles 命令的批处理示例。