中国DOS联盟

求一删除3小时前创建的BAK文件的批处理或脚本
我的数据库每一小时备份一次，但是又不想留多，所以想把三个小时前的清楚！

echo off
echo WScript.Sleep 200000 > sleep.vbs
:begin
sleep.vbs
dir /b data|findstr /n .*|findstr "^3:" && for /f %%a in ('dir /b /od data') do (
del "data\%%~nxa"
goto :begin)



::这里假定是在data文件夹里,请先测试，成功就把echo %%a & goto :begin
::改为del /q "%%a" & goto :begin

[ Last edited by junchen2 on 2008-4-17 at 03:49 AM ]

翻译过来就是 (假设现在8：50)

1.删除不是今天的

2.删除if not time=8，7，6，5



第一个好解决：

@echo off

setlocal enabledelayedexpansion

set p=%date:~0,10%

for /r C:\ %%i in (*.bak) do (

				set p2=%%~ti

				set p2=!p2:~0,10!

				if not "!p2!"=="%p%" del %%~si

				

 )

pause

第二个麻烦点有空写吧

高手们能不能写的详细点？
::这里假定是在data文件夹里,请先测试，成功就把echo %%a & goto :begin
::改为del /q "%%a" & goto :begin
上面这两行什么意思？echo %%a & goto :begin这一段根本就没有怎么改成下面？

如果备份的文件不大的话，可以考虑用winrar来删除

只有10M左右，WINRAR怎么删除？

删除的是修改时间3小时前，还是创建时间？？

没有修改过的话，两者是相等的。

创建时间！ 没修改，都是自己创建的

@echo off

set "rar=%programfiles%\winrar\winrar.exe"

"%rar%" -to3h m test.rar *.bak

del /q test.rar

路径自己修改下。

@echo off
set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar d:\*.bak
del /q test.rar

d:\*.bak这个就是路径？

批处理和VBS不好实现吗？单文件10兆左右也有好几十兆。这样压缩也是占资源的。

可以用vbs啊，==

好，谢谢大哥帮忙，我等着！

dim fso,fd,f

set fso=createobject("scripting.filesystemobject")

set fd=fso.getfolder("d:\")

for each f in fd.files

   if lcase(right(f,3))="bak" then

      if datediff("h",f.DateCreated,now)>3 then

         msgbox f

        'fso.deletefile f,true

      end if

   end if

next

set fd=nothing

set fso=nothing

[ Last edited by abcd on 2008-4-17 at 10:56 PM ]

出来个提示框，并不能删除掉