- @echo off
- set 时=12
- set 日=-1
- set h=%time:~,2%
- if %h% geq 12 if %h% leq 23 set 日=0&set 时=00
- for /f %%a in ('mshta VBScript:Execute("NewDate=date()+(%日%):FmtDate=year(NewDate)&right(""0""&month(NewDate),2)&right(""0""&day(NewDate),2):CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write FmtDate"^)(close^)') do set 日期=%%a
- md %日期%%时%
- pause
复制代码
|