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

2020-06-09 14:25:17

字體：大中小

來源：轉載

供稿：網友

【方案一】刪除指定路徑下指定天數之前（以文件的最后修改日期為準）的文件：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