标题: [求助]求一删除3小时前创建的BAK文件的批处理或脚本！ [打印本页]
作者: 36587285 时间: 2008-4-16 23:22 标题: [求助]求一删除3小时前创建的BAK文件的批处理或脚本！
求一删除3小时前创建的BAK文件的批处理或脚本
我的数据库每一小时备份一次，但是又不想留多，所以想把三个小时前的清楚！
作者: junchen2 时间: 2008-4-17 00:25
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 ]
作者: PPdos 时间: 2008-4-17 02:35
翻译过来就是 (假设现在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
第二个麻烦点有空写吧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
作者: 36587285 时间: 2008-4-17 22:01
高手们能不能写的详细点？
::这里假定是在data文件夹里,请先测试，成功就把echo %%a & goto :begin
::改为del /q "%%a" & goto :begin
上面这两行什么意思？echo %%a & goto :begin这一段根本就没有怎么改成下面？
作者: abcd 时间: 2008-4-17 22:08
如果备份的文件不大的话，可以考虑用winrar来删除
作者: 36587285 时间: 2008-4-17 22:09
只有10M左右，WINRAR怎么删除？
作者: abcd 时间: 2008-4-17 22:13
删除的是修改时间3小时前，还是创建时间？？
没有修改过的话，两者是相等的。
作者: 36587285 时间: 2008-4-17 22:14
创建时间！ 没修改，都是自己创建的
作者: abcd 时间: 2008-4-17 22:15
@echo off
set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar *.bak
del /q test.rar
路径自己修改下。set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar *.bak
del /q test.rar
作者: 36587285 时间: 2008-4-17 22:17
@echo off
set "rar=%programfiles%\winrar\winrar.exe"
"%rar%" -to3h m test.rar d:\*.bak
del /q test.rar
d:\*.bak这个就是路径？
作者: 36587285 时间: 2008-4-17 22:24
批处理和VBS不好实现吗？单文件10兆左右也有好几十兆。这样压缩也是占资源的。
作者: abcd 时间: 2008-4-17 22:28
可以用vbs啊，==
作者: 36587285 时间: 2008-4-17 22:38
好，谢谢大哥帮忙，我等着！
作者: abcd 时间: 2008-4-17 22:54
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 ]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
作者: 36587285 时间: 2008-4-17 22:58
出来个提示框，并不能删除掉
作者: abcd 时间: 2008-4-17 22:59
msgbox f
'fso.deletefile f,true
看这里，删除我是注释了的。去掉前面的单引号即可。
作者: 36587285 时间: 2008-4-17 22:59
框里只有一个该删掉的文件的路径和一个确定，点后提示下一个该删的文件的路径
作者: 36587285 时间: 2008-4-17 23:00
去掉单引号还是会有提示！不过能删掉了
作者: abcd 时间: 2008-4-17 23:02
提示是为了给你看的，注释掉就可以了。
作者: 36587285 时间: 2008-4-17 23:05
我是一窍不通，怎么弄掉？
作者: abcd 时间: 2008-4-17 23:09
直接删除，
或者
在msgbox前加个E文的单引号。
作者: 36587285 时间: 2008-4-17 23:16
搞定了，谢谢老大，想不到碰到你这样的热心人，非常感谢！
作者: 36587285 时间: 2008-4-17 23:27
对了老大，如果清理1小时或者2小时呢？改哪个？
作者: abcd 时间: 2008-4-17 23:33
if datediff("h",f.DateCreated,now)>3 then
改这里的3.
datediff("h",f.DateCreated,now)这个函数就是计算两个日期之差。
其中的h就是返回小时的。
作者: 36587285 时间: 2008-4-17 23:40
哦，知道了，返回小时还不懂什么意思，是不是就是按小时计算的？还可以更改按天计算？
作者: abcd 时间: 2008-4-17 23:42
| Quote: | |
|
看看上面吧。
作者: 36587285 时间: 2008-4-17 23:45
明白了，回头有时间好好跟你学，我要睡觉了，晚安！