for /f %%a in ('mshta VBScript:Execute("NewDate=date+(%d%):FmtDate=right(year(NewDate),4)&right(""0""&month(NewDate),2)&right(""0""&day(NewDate),2):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write FmtDate:close"^)') do set yd=%%a
echo;昨天日期为%yd%
cd /d "%sd%"
if not exist "%dd%" md "%dd%"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir *.*/a-d /b /s') do (