批處理bat刪除指定天數(shù)日期之前的文件

當(dāng)前位置：首頁 > 范文|應(yīng)用文 > IT技術(shù)專欄 > 腳本欄目

來源：易賢網(wǎng) 閱讀：4078 次日期：2014-08-12 14:24:20

溫馨提示：易賢網(wǎng)小編為您整理了“批處理bat刪除指定天數(shù)日期之前的文件”,方便廣大網(wǎng)友查閱！

【方案一】刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件：BAT + REG + VBS

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

::本例調(diào)用了臨時VBS代碼進(jìn)行日期計算

::本例為兼容不同的日期格式，調(diào)用reg命令（XP系統(tǒng)自帶）統(tǒng)一設(shè)置日期格式，

::處理完畢之后再把日期格式恢復(fù)成原來的狀態(tài)。

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

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

【方案二】刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件：BAT + REG + Ritchie Lawrence 日期函數(shù)

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

::本例調(diào)用了 Ritchie Lawrence 的日期函數(shù)進(jìn)行日期計算

::日期轉(zhuǎn)換的核心算法請參考http://bbs.bathome.cn/thread-3056-1-1.html

::本例為兼容不同的日期格式，調(diào)用reg命令（XP系統(tǒng)自帶）統(tǒng)一設(shè)置日期格式，

::處理完畢之后再把日期格式恢復(fù)成原來的狀態(tài)。

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

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

【方案三】刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件：BAT + VBS

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

::本例調(diào)用了臨時VBS代碼進(jìn)行日期計算，并統(tǒng)一設(shè)置系統(tǒng)日期格式，處理完畢

::之后再把日期格式恢復(fù)成原來的狀態(tài)。擺脫了對reg命令（XP系統(tǒng)自帶）的依賴。

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

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

【方案四】刪除指定路徑下指定天數(shù)之前（以文件的創(chuàng)建日期為準(zhǔn)）的文件：BAT + REG + Ritchie Lawrence 日期函數(shù)

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件的創(chuàng)建日期為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

::本例調(diào)用了 Ritchie Lawrence 的日期函數(shù)進(jìn)行日期計算

::日期轉(zhuǎn)換的核心算法請參考http://bbs.bathome.cn/thread-3056-1-1.html

::本例為兼容不同的日期格式，調(diào)用reg命令（XP系統(tǒng)自帶）統(tǒng)一設(shè)置日期格式，

::處理完畢之后再把日期格式恢復(fù)成原來的狀態(tài)。

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

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

)

【方案五】刪除指定路徑下指定天數(shù)之前（以文件的修改日期為準(zhǔn)）的文件：forfiles

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件的最后修改日期為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

::本例需要Win2003/Vista/Win7系統(tǒng)自帶的forfiles命令的支持

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

set DaysAgo=1

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

pause

【方案六】刪除指定路徑下指定天數(shù)之前（以文件名中包含的日期字符串為準(zhǔn)）的文件：字符串截取

代碼如下:

@echo off

::演示：刪除指定路徑下指定天數(shù)之前（以文件名中包含的日期字符串為準(zhǔn)）的文件。

::如果演示結(jié)果無誤，把del前面的echo去掉，即可實現(xiàn)真正刪除。

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

rem 指定待刪除文件的存放路徑

set SrcDir=C:/Test/BatHome

rem 指定天數(shù)

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技術(shù)專欄

上一篇：批處理(bat)命令學(xué)習(xí)的一些總結(jié)

下一篇：批處理bat刪除指定天數(shù)日期之前的文件夾

易賢網(wǎng)手機(jī)網(wǎng)站地址：批處理bat刪除指定天數(shù)日期之前的文件

由于各方面情況的不斷調(diào)整與變化，易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考，敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)！

相關(guān)閱讀腳本欄目

Bottle框架中的裝飾器類和描述符應(yīng)用詳解10月30日

Python探索之SocketServer詳解10月30日

Python探索之實現(xiàn)一個簡單的HTTP服務(wù)器10月30日

python探索之BaseHTTPServer-實現(xiàn)Web服務(wù)器介紹10月30日

13個最常用的Python深度學(xué)習(xí)庫介紹10月30日

深入理解Python中的*重復(fù)運算符10月30日

python logging日志模塊詳解10月30日

System表空間不足的報警問題淺析10月22日

Android開發(fā)自定義TextView省略號樣式的方法10月22日

MySQL 清除表空間碎片的實例詳解10月22日

Ubuntu下MySQL安裝及配置遠(yuǎn)程登錄教程10月22日

Python 2.x如何設(shè)置命令執(zhí)行的超時時間實例10月22日

windows 64位下redis安裝教程10月22日

Android 自定義 HorizontalScrollView 打造多圖片OOM 的橫向滑動效果10月22日

淺談Node Inspector 代理實現(xiàn)10月22日

java web開發(fā)之購物車功能實現(xiàn)示例代碼10月22日

Android開發(fā)中GridView用法示例10月22日

Django ORM框架的定時任務(wù)如何使用詳解10月22日

SpringMail使用過程中的報錯解決辦法10月22日

Android 使用自定義RecyclerView控件實現(xiàn)Gallery效果10月22日

易賢網(wǎng)移動網(wǎng)站

2025國考·省考課程試聽報名

報班類型
姓名
手機(jī)號
驗證碼

午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线