【方案一】刪除指定路徑下指定天數(shù)之前(以文件的最后修改日期為準(zhǔn))的文件:BAT + REG + VBS
代碼如下:
@echo off
::演示:刪除指定路徑下指定天數(shù)之前(以文件的最后修改日期為準(zhǔn))的文件。
::如果演示結(jié)果無(wú)誤,把del前面的echo去掉,即可實(shí)現(xiàn)真正刪除。
::本例調(diào)用了臨時(shí)VBS代碼進(jìn)行日期計(jì)算
::本例為兼容不同的日期格式,調(diào)用reg命令(XP系統(tǒng)自帶)統(tǒng)一設(shè)置日期格式,
::處理完畢之后再把日期格式恢復(fù)成原來(lái)的狀態(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é)果無(wú)誤,把del前面的echo去掉,即可實(shí)現(xiàn)真正刪除。
::本例調(diào)用了 Ritchie Lawrence 的日期函數(shù)進(jìn)行日期計(jì)算
::日期轉(zhuǎn)換的核心算法請(qǐng)參考http://bbs.bathome.cn/thread-3056-1-1.html
::本例為兼容不同的日期格式,調(diào)用reg命令(XP系統(tǒng)自帶)統(tǒng)一設(shè)置日期格式,
::處理完畢之后再把日期格式恢復(fù)成原來(lái)的狀態(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
新聞熱點(diǎn)
疑難解答