【VBS】按日期范围创建文件夹

概要

关键点：获取日期、格式转换，循环递归、创建文件夹

1. 获取系统日期并进行适当的格式转换
2. 根据需求创建一个循环体（这里是取当前日期的前后N天）
3. 递归创建文件夹

代码

提示：Option Explicit会导致For循环内代码失效，暂未考证原因

1. createobject(“Scripting.FileSystemObject”).GetFolder(“.”).Path的作用是获取当前执行脚本的路径

'Option Explicit

Dim iDate
Dim ePath : ePath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
Dim sPath
Dim iStep

iStep