足球游戏_中国足彩网￥体育资讯$

简要咨询 咨询QQ 网站导航 网站搜索 手机站点 联系我们
搜公告
  • 搜公告
  • 搜职位
公众号
事业单位
首 页
足球游戏
事业单位
特岗教师
三支一扶
银行招聘
中国足彩网
选调遴选
学历升学
公 众 号
全站导航
当前位置：首页 > 范文|应用文 > IT技术专栏 > 脚本栏目
批处理bat删除指定天数日期之前的文件
来源：易贤网 阅读：3929 次 日期：2014-08-12 14:24:20
温馨提示：易贤网小编为您整理了“批处理bat删除指定天数日期之前的文件”,方便广大网友查阅！

【方案一】删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件：BAT + REG + VBS

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例调用了临时VBS代码进行日期计算

::本例为兼容不同的日期格式，调用reg命令（XP系统自带）统一设置日期格式，

::处理完毕之后再把日期格式恢复成原来的状态。

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (

    set "RegDateOld=%%a"

)

set RegDateOld=%RegDateOld:~-8%

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul

>"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%

>>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)

>>"%temp%/DstDate.vbs" echo wscript.echo FmtDate

for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (

    set "DstDate=%%a"

)

set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%

for /r "%SrcDir%" %%a in (*.*) do (

    if "%%~ta" leq "%DstDate%" (

        if exist "%%a" (

            echo del /f /q "%%a"

        )

    )

)

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul

pause

【方案二】删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件：BAT + REG + Ritchie Lawrence 日期函数

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例调用了 Ritchie Lawrence 的日期函数进行日期计算

::日期转换的核心算法请参考http://bbs.bathome.cn/thread-3056-1-1.html

::本例为兼容不同的日期格式，调用reg命令（XP系统自带）统一设置日期格式，

::处理完毕之后再把日期格式恢复成原来的状态。

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (

    set "RegDateOld=%%a"

)

set RegDateOld=%RegDateOld:~-8%

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul

call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul

set /a PassDays-=%DaysAgo%

call :DaysToDate %PassDays% DstYear DstMonth DstDay

set DstDate=%DstYear%-%DstMonth%-%DstDay%

for /r "%SrcDir%" %%a in (*.*) do (

    if "%%~ta" leq "%DstDate%" (

        if exist "%%a" (

            echo del /f /q "%%a"

        )

    )

)

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul

pause

goto :eof

:DateToDays %yy% %mm% %dd% days

setlocal ENABLEEXTENSIONS

set yy=%1&set mm=%2&set dd=%3

if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

set /a dd=100%dd%%%100,mm=100%mm%%%100

set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

endlocal&set %4=%j%&goto :EOF

:DaysToDate %days% yy mm dd

setlocal ENABLEEXTENSIONS

set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5

set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF

【方案三】删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件：BAT + VBS

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例调用了临时VBS代码进行日期计算，并统一设置系统日期格式，处理完毕

::之后再把日期格式恢复成原来的状态。摆脱了对reg命令（XP系统自带）的依赖。

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

>"%temp%/BackupDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")

>>"%temp%/BackupDate.vbs" echo WScript.Echo WshShell.RegRead ("HKEY_CURRENT_USER/Control Panel/International/sShortDate")

for /f %%a in ('cscript /nologo "%temp%/BackupDate.vbs"') do (

    set "RegDateOld=%%a"

)

>"%temp%/UnifyDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")

>>"%temp%/UnifyDate.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/International/sShortDate", "yyyy-M-d", "REG_SZ"

cscript /nologo "%temp%/UnifyDate.vbs"

>"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%

>>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)

>>"%temp%/DstDate.vbs" echo wscript.echo FmtDate

for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (

    set "DstDate=%%a"

)

set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%

for /r "%SrcDir%" %%a in (*.*) do (

    if "%%~ta" leq "%DstDate%" (

        if exist "%%a" (

            echo del /f /q "%%a"

        )

    )

)

>"%temp%/RecoverDate.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")

>>"%temp%/RecoverDate.vbs" echo WshShell.RegWrite "HKEY_CURRENT_USER/Control Panel/International/sShortDate", "%RegDateOld%", "REG_SZ"

cscript /nologo "%temp%/RecoverDate.vbs"

pause

【方案四】删除指定路径下指定天数之前（以文件的创建日期为准）的文件：BAT + REG + Ritchie Lawrence 日期函数

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件的创建日期为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例调用了 Ritchie Lawrence 的日期函数进行日期计算

::日期转换的核心算法请参考http://bbs.bathome.cn/thread-3056-1-1.html

::本例为兼容不同的日期格式，调用reg命令（XP系统自带）统一设置日期格式，

::处理完毕之后再把日期格式恢复成原来的状态。

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

for /f "skip=2 delims=" %%a in ('reg query "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate') do (

    set "RegDateOld=%%a"

)

set RegDateOld=%RegDateOld:~-8%

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d yyyy-M-d /f>nul

call :DateToDays %date:~0,4% %date:~5,2% %date:~8,2% PassDays

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul

set /a PassDays-=%DaysAgo%

call :DaysToDate %PassDays% DstYear DstMonth DstDay

set DstDate=%DstYear%-%DstMonth%-%DstDay%

for /f "delims=/" %%a in ('dir /s /b /a-d "%SrcDir%"') do (

    call :CompareTime "%%a"

)

reg add "HKEY_CURRENT_USER/Control Panel/International" /v sShortDate /t REG_SZ /d %RegDateOld% /f>nul

pause

goto :eof

:DateToDays %yy% %mm% %dd% days

setlocal ENABLEEXTENSIONS

set yy=%1&set mm=%2&set dd=%3

if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)

set /a dd=100%dd%%%100,mm=100%mm%%%100

set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

endlocal&set %4=%j%&goto :EOF

:DaysToDate %days% yy mm dd

setlocal ENABLEEXTENSIONS

set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5

set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

endlocal&set %2=%yy%&set %3=%mm%&set %4=%dd%&goto :EOF

:CompareTime

for /f "skip=5 tokens=1-2 delims= " %%h in ('dir /a-d /tc %1') do (

    if "%%h" leq "%DstDate%" (

        if exist %1 (

            echo del /a /f /q %1

        )

    )

    goto :eof

)

【方案五】删除指定路径下指定天数之前（以文件的修改日期为准）的文件：forfiles

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例需要Win2003/Vista/Win7系统自带的forfiles命令的支持

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

forfiles /p %SrcDir% /s /m *.* /d -%DaysAgo% /c "cmd /c echo del /f /q /a @path"

pause

【方案六】删除指定路径下指定天数之前（以文件名中包含的日期字符串为准）的文件：字符串截取

代码如下:

@echo off

::演示：删除指定路径下指定天数之前（以文件名中包含的日期字符串为准）的文件。

::如果演示结果无误，把del前面的echo去掉，即可实现真正删除。

::本例假设文件名中包含的日期字符串（比如：bak-2009-12-25.log）

rem 指定待删除文件的存放路径

set SrcDir=C:/Test/BatHome

rem 指定天数

set DaysAgo=1

>"%temp%/DstDate.vbs" echo LastDate=date()-%DaysAgo%

>>"%temp%/DstDate.vbs" echo FmtDate=right(year(LastDate),4) ^& right("0" ^& month(LastDate),2) ^& right("0" ^& day(LastDate),2)

>>"%temp%/DstDate.vbs" echo wscript.echo FmtDate

for /f %%a in ('cscript /nologo "%temp%/DstDate.vbs"') do (

  set "DstDate=%%a"

)

set DstDate=%DstDate:~0,4%-%DstDate:~4,2%-%DstDate:~6,2%

setlocal enabledelayedexpansion

for /r "%SrcDir%" %%a in (*.*) do (

    set "FileDate=%%~na"

    set "FileDate=!FileDate:~4,10!"

    if "!FileDate!" leq "%DstDate%" (

        if exist "%%a" (

            echo del /f /q "%%a"

        )

    )

)

endlocal

pause

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看脚本栏目
【点此处就本文及相关问题在本站进行非正式的简要咨询（便捷快速）】 【点此处查询各地各类考试咨询QQ号码及交流群】
上一篇：批处理(bat)命令学习的一些总结
下一篇：批处理bat删除指定天数日期之前的文件夹
易贤网手机网站地址：批处理bat删除指定天数日期之前的文件
由于各方面情况的不断调整与变化，易贤网提供的所有考试信息和咨询回复仅供参考，敬请考生以权威部门公布的正式信息和咨询为准！
相关阅读脚本栏目
Bottle框架中的装饰器类和描述符应用详解10月30日
Python探索之SocketServer详解10月30日
Python探索之实现一个简单的HTTP服务器10月30日
python探索之BaseHTTPServer-实现Web服务器介绍10月30日
13个最常用的Python深度学习库介绍10月30日
深入理解Python中的*重复运算符10月30日
python logging日志模块详解10月30日
System表空间不足的报警问题浅析10月22日
Android开发自定义TextView省略号样式的方法10月22日
MySQL 清除表空间碎片的实例详解10月22日
Ubuntu下MySQL安装及配置远程登录教程10月22日
Python 2.x如何设置命令执行的超时时间实例10月22日
windows 64位下redis安装教程10月22日
Android 自定义 HorizontalScrollView 打造多图片OOM 的横向滑动效果10月22日
浅谈Node Inspector 代理实现10月22日
java web开发之购物车功能实现示例代码10月22日
Android开发中GridView用法示例10月22日
Django ORM框架的定时任务如何使用详解10月22日
SpringMail使用过程中的报错解决办法10月22日
Android 使用自定义RecyclerView控件实现Gallery效果10月22日
易贤网移动网站
最新信息
【校招】云南锡业2025届校园招聘公告
曲靖一中卓立学校招聘2025届公费师范生公告
2025年弥渡县卫生健康系统“校园招聘”报名资格审核情况及招聘工作安排公告
2024年中共昆明市呈贡区委统战部招聘公告
2025年国家无线电监测中心京外监测站校园招聘简章
2024年昆明市石林县中医医院招聘公告
2024年昆明市石林县长湖镇卫生院招聘编外人员公告
2024年下半年勐海县教育体育局下属事业单位紧缺招聘拟聘公示（第三批次）
2024年临沧绿源翔蔬菜物流配送有限公司招聘简章
2025年文山州富宁县事业单位紧缺岗位招聘通告
公考类
云南公务员 贵州公务员 四川公务员 广西公务员 各省公务员 国家公务员 选调遴选
招聘类
事业单位 中国足彩网 特岗教师 三支一扶 志 愿 者 银行招聘 国企招聘
各类考试
学历升学 会计考试 职业资格 外语考试 医学考试 工程考试 教师资格
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号：滇ICP备2023014141号-1 足球游戏_中国足彩网￥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证：（云）人服证字（2023）第0102001523号
云南网警备案专用图标
联系电话：0871-65317125（9:00—18:00） 获取招聘考试信息及咨询关注公众号：hfpxwx
咨询QQ：526150442（9:00—18:00）版权所有:易贤网
云南网警报警专用图标