UC知道谁能给一个VBS创建好的多层文件夹代码
来源：百度知道 编辑：UC知道 时间：2024/06/15 19:43:21
文件夹名为1-9 9个文件夹 每个文件夹有9层 每层都有9个文件夹[文件夹名：1-9]
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
path=路径
For i = 1 To 9
fso.CreateFolder(path&i)
For j = 1 To 9
fso.CreateFolder(path&i&"\"&j)
Next
Next
路径自己修改下，结尾必须是 "\"