命令 如何提取系统当前日期,新建文件夹,名称为当前系统日期.

来源：百度知道 编辑：UC知道 时间：2024/06/19 08:21:03
如今天是:2008年4.21日,那文件夹的名字应为"20080421"

将以下内容保存成bat格式的文件，复制到记事本，然后另存为mkdir.bat，双击运行即可。

more +4 %0 >mkdir.vbs
cscript mkdir.vbs
del mkdir.vbs
exit

Call Main

Sub Main
Dim sDate, sDates
Dim sTarget
Dim objFSO
sDate = Date
sDates = split(sDate, "-")
sTarget = ""E:\123\"&Format(sDates(0), 4, "0")&Format(sDates(1), 2, "0")&Format(sDates(2), 2, "0")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder(sTarget)
Set objFSO = Nothing
End Sub

Function Format(sStr, nSize, cPadding)
Format = sStr
While(Len(Format) < nSize)
Format = Left(cPadding, 1)&Format
WEnd
End Function