vbs编写昨天的日期，并生成文件夹

用TXT 文本写下面的代码,将TXT文本命名，并改变属性为vbs文件。getyesterday.vbs 的作用是获取当前日期的前一天的 6位数值

Option Explicit
Dim tday,ystr,mstr,dstr
tday = dateadd("d",-1,date)
ystr = year(tday)
mstr = month(tday)
if len(mstr) < 2 then mstr = "0"&mstr  ---一位数的月，前面添加 "0"
dstr = day(tday)
if len(dstr) < 2 then dstr = "0"&dstr ---一位数的 日 ，前面添加 “0”
tday = ystr&mstr&dstr
Wscript.echo tday

可以通过写批处理命令，利用刚才的vbs文件，生成文件夹，文件命名为 new_mdr.bat：

for /f %%a in ('cscript //nologo D:\INC\script\getyesterday.vbs') do set tday=%%a
echo %tday%
if not exist D:\INC\log\%tday% (
  md D:\INC\log\%tday%  rem:在D盘下生成前一天的文件夹，用于存放日期
)
if not exist D:\INC\bad\%tday% (
  md D:\INC\bad\%tday%
)