标题: [文件操作] 批处理怎样创建指定日期的文件夹? [打印本页]
作者: sjsbaocheng 时间: 2012-9-13 10:50 标题: 批处理怎样创建指定日期的文件夹?
之前在论坛求助过,也得到了大家的帮助,在这里表示感谢
要求:
1、新建2个文件夹,分别命名为“一周后的日期+工作”和“一周后的日期+备份”。(例如:“2012-09-17工作”和“2012-09-17备份”)
2、在2个新建文件夹里面,全都新建以下文件夹:“项目一”“项目二”“项目三”“项目四”“项目五”“项目六”。
辛苦高手了。
作者: 狗屁不通 时间: 2012-9-13 22:49
本帖最后由 狗屁不通 于 2012-9-13 23:15 编辑
-
- @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 时间: 2012-9-14 16:12
练习中。。。- 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"
复制代码
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |