查找最新的文件的批處理bat文件

rem  文件更新列表批處理
cls
title         YIPINGSOFT CopyRight2006            
rem "=================================================="
For /r  %%i in (.) DO   del %%i\最新文件目錄.txt 
del 備查目錄.txt
del 完整目錄.txt
set homes=%date%    
date/t >>完整目錄.txt      
for /F %%A in (完整目錄.txt) do  set homes=%%A     
md  %homes% 
dir  /t:c /s>完整目錄.txt  
for /f "tokens=1,4* delims= " %%1 in (完整目錄.txt) do for /r  %%a in (%%2*) do if %%1==%homes% echo %%~fa >>最新文件目錄.txt
For /r  %%i in (*.*) DO  echo %%~fi >>備查目錄.txt
copy 最新文件目錄.txt   %homes%\&;