用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%
)