【方案一】刪除指定路徑下指定天數之前(以文件的最后修改日期為準)的文件: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
新聞熱點
疑難解答