strFolder = "C:\DeleteTest"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
strDaysOld = 2
'Get files from target folder
For Each File in colFiles
set objFile = objFSO.GetFile(strFolder & "\" & File.Name)
'Enumerate last modified date/time and delete if older than 2 days but where the date doesn't start with '01'
If objFile.DateLastModified < (Date() - strDaysOld) AND NOT Left(objFile.DateLastModified, 2) = 01 Then
objFSO.DeleteFile objFile, true
End If
Next
2 个回复
卫东
赞同来自:
例如,这里 PowerShell
http://www.networknet.nl/apps/ ... -days
. 我对品种更不漠不关心 Python, Perl (* nix / Linux), 和这样的东西会很简单 Python (
http://bytes.com/topic/python/ ... ctory
).
这两个例子都取自 Google.
PowerShell 删除旧文件
或者
python 删除旧文件
... 如果您想检查替代方案。
我不熟悉任何图形界面工具或快速定制工具,因为他们从未需要过。 在大多数情况下,您要求的一切,您可以编码少于内容 20 学期。
石油百科
赞同来自:
无论如何,抱歉脏代码 ... 但他应该帮助你。