[文件操作] 批处理怎样创建指定日期的文件夹？

sjsbaocheng

之前在论坛求助过，也得到了大家的帮助，在这里表示感谢

要求：
1、新建2个文件夹，分别命名为“一周后的日期+工作”和“一周后的日期+备份”。（例如：“2012-09-17工作”和“2012-09-17备份”）
2、在2个新建文件夹里面，全都新建以下文件夹：“项目一”“项目二”“项目三”“项目四”“项目五”“项目六”。

辛苦高手了。

狗屁不通

 
    @echo off
    set/a year  = %date:~0,4%
    set/a month = %date:~5,2%
    set/a day   = %date:~8,2%
    set/a day_7 = %date:~8,2%+7
    set/a year_1= %year%%4
    if %year_1% = 0 set/a month_2 =29
    if %year_1% = 1 set/a month_2 =28
    if %day_7% LSQ %month_2% goto :end
    for %%i in (02) do if %month%==%%i set/a day_num = %month_2%
    for %%i in (04 06 09 11) do if %month%==%%i set/a day_num = 30
    for %%i in (01 03 05 07 08 10 12) do if %month%==%%i set/a day_num = 31
    if %day_7% GTR %day_num% set/a day_7=%day_7%-29 & set/a month=%month%+1
    :end
    md %year%-%month%-%day_7%工作 %year%-%month%-%day_7%备份
    pushd %year%-%month%-%day_7%工作
    md 项目一 项目二 项目三 项目四 项目五 项目六
    pushd %year%-%month%-%day_7%备份
    md 项目一 项目二 项目三 项目四 项目五 项目六
复制代码

apang

练习中。。。

Sub CreateFolder(F)
  Arr = Array(F,F & "\项目一",F & "\项目二",F & "\项目三",F & _
"\项目四",F & "\项目五",F & "\项目六")
  For i = 0 To UBound(Arr)
    If Not FSO.FolderExists(Arr(i)) Then FSO.CreateFolder(Arr(i))
  Next
End Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
YY = Right(Year(Date+7),4)
MM = Right("0" & Month(Date+7),2)
DD = Right("0" & Day(Date+7),2)
CreateFolder YY & "-" & MM & "-" & DD & "工作"
CreateFolder YY & "-" & MM & "-" & DD & "备份"
MsgBox "OK"
复制代码