用DOS批处理实现建立文件夹

要求:1要求建立文件名格式为"YYYY1-MM1-DD1至YYYY2-MM2-DD2"的文件夹
     2其中YYYY1-MM1-DD1是今天的日期;YYYY2-MM2-DD2是四天后的日期
解答:

@echo off
rem 比较运算符: EQU - 等于 NEQ - 不等于   LSS - 小于   LEQ - 小于或等于   GTR - 大于   GEQ - 大于或等于
rem 取模运算符: %% DOS的取模运算符(批处理文件里用%%,非批处理命令行下用%)
rem 日志文件夹名称初始值
set filelog=%date:~0,10%至
rem 后续日期的变量
set /A y=0
set /A m=0
set /A d=0
rem 取日期YYYYMMDD中的DD两位
set /A dd= %date:~8,2%
set /A ddp4= %dd% + 4
rem 取日期YYYYMMDD中的MM两位
set /A mm= %date:~5,2%
set /A mmp1= %mm% + 1  
rem 取日期YYYYMMDD中的YYYY四位
set /A yyyy= %date:~0,4%
set /A yyyyp1= %yyyy% + 1  
set /A yymd=yyyy %% 4
rem 如果是31天的月份( 1,3,5,7,8,10,12 )
rem 12 月特殊
if %mm% equ 12 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
if %mmp1% gtr 12 (
   set /A y=%yyyy% + 1  
   set /A m= 1  
   set /A d=%ddp4% - 31  
)
)
goto END
)
if %mm% equ 10 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
if %mm% equ 8 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
if %mm% equ 7 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
if %mm% equ 5 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
if %mm% equ 3 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
if %mm% equ 1 (
if %ddp4% leq 31 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 31 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 31  
)
goto END
)
rem 如果是30天的月份( 4,6,9,11 )
if %mm% equ 11 (
if %ddp4% leq 30 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 30 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 30  
)
goto END
)
if %mm% equ 9 (
if %ddp4% leq 30 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 30 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 30  
)
goto END
)
if %mm% equ 6 (
if %ddp4% leq 30 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 30 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 30  
)
goto END
)
if %mm% equ 4 (
if %ddp4% leq 30 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 30 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 30  
)
goto END
)
rem 如果是28或29天的月份( 2 )
if %mm% equ 2 (
if %yymd% equ 0 (
if %ddp4% leq 29 (
   set /A y=%yyyy%  
   set /A m=%mm%  
   set /A d=%ddp4%  
)
if %ddp4% gtr 29 (
   set /A y=%yyyy%  
   set /A m=%mmp1%  
   set /A d=%ddp4% - 29  
)
goto END
)
if %ddp4% leq 28 (
set /A y=%yyyy%  
set /A m=%mm%  
set /A d=%ddp4%  
)
if %ddp4% gtr 28 (
set /A y=%yyyy%  
set /A m=%mmp1%  
set /A d=%ddp4% - 28  
)
)
rem 组合文件夹名称,并建立文件夹
:END
if %m% lss 10 set filelog=%filelog%%y%-0%m%
if not %m% lss 10 set filelog=%filelog%%y%-%m%
if %d% lss 10 set filelog=%filelog%-0%d%
if not %d% lss 10 set filelog=%filelog%-%d%
mkdir %filelog%