我们有一个像这样的目录结构
.. \ Document Name_archive \ YYYY \ MonthName
因此,例如,我们有许多子文件夹(在不同的文档名称文件夹中),称为\ 2014 \ January ...等
我们要删除所有创建日期早于180天的文件夹及其内容。
我们希望只使用批处理文件脚本,但是如果我们需要递归搜索,也许使用VBScript会更好。
请问最好的方法是什么?
这是使用递归函数的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
有关使用命令的批处理示例,请参见此文章forfiles
。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句