批处理备份某一目录下最新的一个文件

@echo off
REM 配合任务计划的功能，每个星期调度一次，把数据库压缩一下，防止4个星期一到就被删除
REM 需要修改相关的目录信息
SET CountI=0
SET BakDir="D:/data/2005"
for /f   %%a in ('dir %BakDir% /a:-d /B /o:-D') do (
echo %%a
SET FileName=%%a
SET CountI=CountI+1
echo %CountI%
if %CountI% == 0 goto bakup2

)
:bakup2
echo %FileName%
set path=C:/Program Files/WinRAR
WinRAR.exe a "%BakDir%/%FileName%.rar" "%BakDir%/%FileName%"