标题: [文件操作] 批处理如何新建文件夹,命名为一周后的日期? [打印本页]
作者: sjsbaocheng 时间: 2012-9-9 17:35 标题: 批处理如何新建文件夹,命名为一周后的日期?
本人愚钝,但羡慕批处理的方便,有点小想法请大家帮忙。
要求:新建文件夹,命名为一周后的日期。
比如:今天周六是6号,想新建一个文件夹命名为下周六的日期(13号),格式为2012.9.13或2012-9-13.
求代码。
作者: apang 时间: 2012-9-9 20:11
假设系统日期格式:YYYY-MM-DD或YYYY/MM/DD- @echo off
- more +4 "%~0">$.vbs
- cscript /nologo $.vbs
- del $.vbs&goto :eof
- Set FSO = CreateObject("Scripting.FileSystemObject")
- YY = Year(Date()+7) : YY = Right(YY,4)
- MM = Month(Date()+7) : MM = Right("0" & MM,2)
- DD = Day(Date()+7) : DD = Right("0" & DD,2)
- If FSO.FolderExists(YY & "-" & MM & "-" & DD) = Flase Then
- FSO.CreateFolder(YY & "-" & MM & "-" & DD)
- End If
复制代码
作者: sjsbaocheng 时间: 2012-9-10 22:36
回复 2# apang
非常感谢你的代码~
我还想在所建立的“日期文件夹”里面,建立名字为“第一”“第二”“第三”“第四”的四个文件夹,后面加什么代码?请指教!
作者: apang 时间: 2012-9-11 00:31
回复 3# sjsbaocheng - @echo off
- more +4 "%~0">$.vbs
- cscript /nologo $.vbs
- del $.vbs&goto :eof
- 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)
- Folder = YY & "-" & MM & "-" & DD
- Dim Arr(4)
- Arr(0) = Folder
- Arr(1) = Folder & "\第一"
- Arr(2) = Folder & "\第二"
- Arr(3) = Folder & "\第三"
- Arr(4) = Folder & "\第四"
- For i = 0 To 4
- If FSO.FolderExists(Arr(i)) = Flase Then
- FSO.CreateFolder(Arr(i))
- End If
- Next
复制代码
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |