检查文件修改时间，若20分钟内修改过，将其改名。 - 中国DOS联盟论坛

扫描D:\rec\目录,不包括隐藏系统属性文件,不包括子目录:

@echo off&setlocal enabledelayedexpansion
set Date_D=%date:~0,10%
for /f "tokens=1,2 delims=:" %%a in ("%time%") do (
set Time_H=%%a&set Time_M=%%b
if "!Time_M:~0,1!"=="0" set Time_M=!Time_M:~1!
set/a Time_M-=20
if !Time_M! lss 0 set/a Time_H-=1,Time_M+=60
if !Time_H! lss 0 set Time_H=23&call:Date_D,1)
set Time_H=0%Time_H%&set Time_M=0%Time_M%&set Date_D=%Date_D% !Time_H:~-2!:!Time_M:~-2!&set Date_M=!Date_D::=-!
for %%a in ("D:\rec\*.*") do if "%Date_D%" leq "%%~ta" ren "%%a" "%%~na-%Date_M%%%~xa"
pause&exit
:Date_D
for /f "tokens=1-3 delims=-:/ " %%a in ("%date%") do (
set Date_Y=%%a&set Date_M=%%b&set Date_D=%%c
if "!Date_M:~0,1!"=="0" set Date_M=!Date_M:~1!
if "!Date_D:~0,1!"=="0" set Date_D=!Date_D:~1!)
set/a Date_D-=%1
if %Date_D% gtr 0 goto:Date_Y
:Date_M
set/a Date_M-=1
if !Date_M!==0 set/a Date_Y-=1,Date_M=12
set/a "Date_T=^!(Date_M-2)","Date_R=(^!(Date_Y%%4)&^!^!(Date_Y%%100))|^!(Date_Y%%400)","Date_C=^!(Date_M-4)|^!(Date_M-6)|^!(Date_M-9)|^!(Date_M-11)","Date_D=Date_T*(28+Date_R)+Date_C*30+(^!Date_T&^!Date_C)*31+Date_D"
if %Date_D% leq 0 goto:Date_M
:Date_Y
set Date_M=0%Date_M%&set Date_D=0%Date_D%&set Date_D=%Date_Y%-!Date_M:~-2!-!Date_D:~-2!

[ Last edited by Hanyeguxing on 2010-6-11 at 15:05 ]

第1楼　balihaha	发表于 2010-06-11 11:41
新手上路　发帖 1　积分 1
检查文件修改时间，若20分钟内修改过，将其改名。就是扫描一个文件夹里所有的文件，若发现文件修改时间在20分钟之内，自动将其改名。格式为原文件名+日期+时间脚本如何写？谢谢。

第2楼　Hanyeguxing	发表于 2010-06-11 15:02
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
扫描D:\rec\目录,不包括隐藏系统属性文件,不包括子目录: @echo off&setlocal enabledelayedexpansion set Date_D=%date:~0,10% for /f "tokens=1,2 delims=:" %%a in ("%time%") do ( set Time_H=%%a&set Time_M=%%b if "!Time_M:~0,1!"=="0" set Time_M=!Time_M:~1! set/a Time_M-=20 if !Time_M! lss 0 set/a Time_H-=1,Time_M+=60 if !Time_H! lss 0 set Time_H=23&call:Date_D,1) set Time_H=0%Time_H%&set Time_M=0%Time_M%&set Date_D=%Date_D% !Time_H:~-2!:!Time_M:~-2!&set Date_M=!Date_D::=-! for %%a in ("D:\rec\.") do if "%Date_D%" leq "%%~ta" ren "%%a" "%%~na-%Date_M%%%~xa" pause&exit :Date_D for /f "tokens=1-3 delims=-:/ " %%a in ("%date%") do ( set Date_Y=%%a&set Date_M=%%b&set Date_D=%%c if "!Date_M:~0,1!"=="0" set Date_M=!Date_M:~1! if "!Date_D:~0,1!"=="0" set Date_D=!Date_D:~1!) set/a Date_D-=%1 if %Date_D% gtr 0 goto:Date_Y :Date_M set/a Date_M-=1 if !Date_M!==0 set/a Date_Y-=1,Date_M=12 set/a "Date_T=^!(Date_M-2)","Date_R=(^!(Date_Y%%4)&^!^!(Date_Y%%100))\|^!(Date_Y%%400)","Date_C=^!(Date_M-4)\|^!(Date_M-6)\|^!(Date_M-9)\|^!(Date_M-11)","Date_D=Date_T(28+Date_R)+Date_C30+(^!Date_T&^!Date_C)31+Date_D" if %Date_D% leq 0 goto:Date_M :Date_Y set Date_M=0%Date_M%&set Date_D=0%Date_D%&set Date_D=%Date_Y%-!Date_M:~-2!-!Date_D:~-2! [ Last edited by Hanyeguxing on 2010-6-11 at 15:05* ]

第3楼　pdanniel66	发表于 2010-06-11 20:41
初级用户　发帖 64　积分 68
create D:\rec\ folder and files test result as below: 系统找不到指定的路径。请按任意键继续 . . .