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

ydfan8888

1. setlocal EnableDelayedExpansion
   
2. set riqi1=%date:~0,10%
   
3. set riqi=%riqi1:-=%
   
4. echo %riqi%
   
5. for /f %%i in ('dir /b "D:\123\*.log"') do (
   
6. set a=%%i
   
7. set b=!a:~0,8!
   
8. if !b!==%riqi% copy "D:\123\%%i" e:\1\!b!.log
   
9. )

复制代码

也就是将d盘下的123文件夹下所有Log文件 进行以当前时间判定  并截取前面8位 然后复制到e盘下更名为前8位为名的log文件
如判定：D:\123\20110108132314.log    首先判定有没当天的文件，然后判定出有的话 需要将其截取前8位为名的文件保存到E盘1下 重命名为：20110108.log  我需要VBS的脚本  上面的BAT是可以实现的。

powerbat

我来翻译一下楼主的日语（可能是吧）：
d盘下的123文件夹下有一些Log文件，文件名前8位都是年月日的日期格式，将这些日期与当前时间进行比较，如果等于当天日期，则复制到E盘并将文件名改为8位日期格式。例如D:\123\20110108132314.log符合要求，则复制为E:\20110108.log。上面的BAT是可以实现的，怎么改成VBS脚本？