[文件操作] 批处理如何新建文件夹，命名为一周后的日期？

sjsbaocheng

本人愚钝，但羡慕批处理的方便，有点小想法请大家帮忙。

要求：新建文件夹，命名为一周后的日期。
比如：今天周六是6号，想新建一个文件夹命名为下周六的日期（13号），格式为2012.9.13或2012-9-13.
求代码。

apang

假设系统日期格式：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

回复 2# apang


    非常感谢你的代码~
    我还想在所建立的“日期文件夹”里面，建立名字为“第一”“第二”“第三”“第四”的四个文件夹，后面加什么代码？请指教！

apang

回复 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
复制代码