时间判定并截取文件名的批处理如何修改成VBS的？

setlocal EnableDelayedExpansion
set riqi1=%date:~0,10% 
set riqi=%riqi1:-=%
echo %riqi%
for /f %%i in ('dir /b "D:\123\*.log"') do (
set a=%%i 
set b=!a:~0,8!
if !b!==%riqi% copy "D:\123\%%i" e:\1\!b!.log
)
复制代码