@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
复制代码

@echo off
set "fd=20130101"
set "ph=D:\user\log\"
for /f "tokens=*" %%i in ("%ph%") do set d=%%~di&set "p=%%~pi"
wmic datafile where "drive='%d%' and path='%p:\=\\%' and FileName like 'ex%%' and extension='log' and LastModified<'%fd%'" call delete
复制代码

@echo off
setlocal enabledelayedexpansion
set "fd=20130101"
for /d %%a in ("D:\user\*") do (
    for /f "tokens=*" %%i in ("%%a\log") do (
        set "d=%%~di"
        set "p=%%~pi"
    )
    wmic datafile where "drive='!d!' and path='!p:\=\\!' and FileName like 'ex%%' and extension='log' and LastModified<'%fd%'" call delete
)
复制代码

@echo off
set "fd=20130415000000"
set "d=d:"
set "p=\user\"
set "ext=log"
for /f "tokens=*" %%p in ('dir /b /ad "%d%%p%"') do (
    for /f "skip=1 tokens=1*" %%i in ('wmic datafile where "drive='%d%' and path='%p:\=\\%%%p\\log\\' and FileName like 'ex%%' and extension='%ext%'" get name^,LastModified') do (
        for /f "tokens=1,2* delims=. " %%a in ("%%i %%j") do (
           if "%%a" lss "%fd%" echo del "%%~fc"
        )
    )
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
set "fd=20130501000000"
set "d=c:"
set "p=\user\"
set "ext=log"
for /f "tokens=*" %%p in ('dir /b /ad "%d%%p%"') do (
    for /f "skip=1 tokens=1*" %%i in ('wmic datafile where "drive='%d%' and path='%p:\=\\%%%p\\log\\' and FileName 

like 'ex%%' and extension='%ext%'" get name^,LastModified') do (
        for /f "tokens=1,2* delims=. " %%a in ("%%i %%j") do (
           if "%%a" lss "%fd%" echo del "%%~fc" 
        )
    )
)
pause
复制代码

del "c:\user\liky\log\ex20130430.log"
del "c:\user\wxh\log\ex20130430.log"
请按任意键继续. . .
复制代码

find.exe 目录 -mtime +40
rem 搜索目录下修改日期在 40 天前的文件
复制代码

@echo off
for /f "delims=" %%a in ('xcopy /d:05-01-2013 /ls *.log c:\') do set "%%a=1"
for /r %%a in (*.log) do if not defined %%a echo %%a
Rem 查找2013年5月1日之前修改的文件
pause
复制代码