批处理之家 - Powered by Discuz! Board

标题: [文件操作] [已解决]如何删除指定文件夹里一分钟前创建的文件？ [打印本页]

作者: 每天几分 时间: 2016-4-6 21:36 标题: [已解决]如何删除指定文件夹里一分钟前创建的文件？

本帖最后由 pcl_test 于 2016-4-7 12:52 编辑

我现在有一个文件夹，每秒钟都会在里面不断地创建文件，请问可以在它们创建1分钟之后再删除掉吗？而且要一直运行着这个批处理。

作者: happy886rr 时间: 2016-4-6 22:29

本帖最后由 happy886rr 于 2016-4-6 22:57 编辑

@echo off
:main
cls&(for /f "delims=" %%a in ('dir /a-d /b /s *.*') do (echo %%a))>$
echo 正在等待...
choice /t 50 /d y /n >nul
echo 正在删除...
for /f "delims=" %%a in ('type $') do (if not "%%a"=="%~f0" del /f /q "%%a")
goto main
复制代码

回复 1# 每天几分

作者: CrLf 时间: 2016-4-6 22:32

hash /t::~-1 /do:"del ""%%s"""
复制代码

第三方工具 HASH 下载：http://www.bathome.net/s/tool/?key=hash&keymode=4
3.0 以上版本才支持 /do 开关

作者: WHY 时间: 2016-4-6 22:43

PowerShell -c "dir E:\test\*.*|?{$_ -is [IO.FileInfo] -and ((get-Date)-$_.CreationTime).TotalMinutes -gt 1}|del -Force"
复制代码

放在任务计划里，每分钟执行一次

作者: pcl_test 时间: 2016-4-7 00:40

本帖最后由 pcl_test 于 2016-4-7 00:57 编辑

vbs

Set fso = CreateObject("Scripting.FileSystemObject")
Set Folder = fso.GetFolder(".")   '当前目录，可指定文件夹路径
DO
    Set Files = Folder.Files
    For Each File In Files
        If File <> WScript.ScriptFullName Then
            n = DateDiff("n", File.DateCreated, now)
            If n >= 1 Then fso.DeleteFile File    '删除一分钟前创建的文件
        End If
    Next
    Wscript.Sleep 10000   '10秒检测一次
Loop
复制代码

欢迎光临批处理之家 (http://bathome.net./)