|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『楼 主』:
[求助]求一删除3小时前创建的BAK文件的批处理或脚本！
求一删除3小时前创建的BAK文件的批处理或脚本
我的数据库每一小时备份一次，但是又不想留多，所以想把三个小时前的清楚！
|
|
 2008-4-16 23:22 |
|
|
junchen2
高级用户
积分 537
发帖 219
注册 2007-8-4
来自 杭州--半山
状态 离线
|
『第
2 楼』:
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 ]
|
|
|
2008-4-17 00:25 |
|
|
PPdos
高级用户
积分 783
发帖 268
注册 2006-12-26
状态 离线
|
『第
3 楼』:
翻译过来就是 (假设现在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 第二个麻烦点有空写吧
|
菩提本无树,明镜亦非台,本来无一物,何处惹尘埃. |
|
|
2008-4-17 02:35 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『第
4 楼』:
高手们能不能写的详细点？
::这里假定是在data文件夹里,请先测试，成功就把echo %%a & goto :begin
::改为del /q "%%a" & goto :begin
上面这两行什么意思？echo %%a & goto :begin这一段根本就没有怎么改成下面？
|
|
|
2008-4-17 22:01 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
5 楼』:
如果备份的文件不大的话，可以考虑用winrar来删除
|
|
|
2008-4-17 22:08 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『第
6 楼』:
只有10M左右，WINRAR怎么删除？
|
|
|
2008-4-17 22:09 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
7 楼』:
删除的是修改时间3小时前，还是创建时间？？
没有修改过的话，两者是相等的。
|
|
|
2008-4-17 22:13 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『第
8 楼』:
创建时间！ 没修改，都是自己创建的
|
|
|
2008-4-17 22:14 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
9 楼』:
@echo off
set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar *.bak
del /q test.rar 路径自己修改下。
|
|
|
2008-4-17 22:15 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『第
10 楼』:
@echo off
set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar d:\*.bak
del /q test.rar
d:\*.bak这个就是路径？
|
|
|
2008-4-17 22:17 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
『第
11 楼』:
批处理和VBS不好实现吗？单文件10兆左右也有好几十兆。这样压缩也是占资源的。
|
|
|
2008-4-17 22:24 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
|
|
2008-4-17 22:28 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
|
|
2008-4-17 22:38 |
|
|
abcd
银牌会员
积分 1436
发帖 739
注册 2007-10-11
状态 离线
|
『第
14 楼』:
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 ]
|
|
|
2008-4-17 22:54 |
|
|
36587285
初级用户
积分 32
发帖 15
注册 2008-4-16
状态 离线
|
|
|
2008-4-17 22:58 |
|
