批量创建文件夹

来源：百度知道 编辑：UC知道 时间：2024/07/04 12:46:04
如何在自动化的在一个地方建立1-9， 不叫新建文件夹、 分别叫1－9
而且要在没一层文件夹里面再建立这么多文件夹，再在下一层的文件夹里再建立
总共建立9层
在MP4里藏东西,
不会,回的帮忙搞搞!
谢谢

简单的VBS类归脚本即可.
不过0分奖励只能提供给你这个信息.
开玩笑,别介意......
将下面代码复制到记事本中,另存为VBS格式文件(不是文本文件)

'修改下面D:\为创建文件夹路径,保存后双击等待吧,需要很长一段时间.
'需要创建387420489个文件夹,一旦创建,你删除也需要时间……^_^
Lq_Cpath="D:\"

'以下部分不需要修改
Sub fso_folder_new(fso_folder_new_name)
on error resume next
Set lq_fso=Createobject("Scripting.FilesystemObject")
if not lq_fso.FolderExists(""&fso_folder_new_name&"") then
lq_fso.CreateFolder ""&fso_folder_new_name&""
end if
Set lq_fso=Nothing
End Sub

Function Lq_Cfolder(Lq_Num,Lq_Path)
if not isnumeric(Lq_Num) then
Lq_Num=1
Else
Lq_Num=Clng(Lq_Num)
End If
'修改下面的10为想要的深度+1
If Lq_Num=10 then
Exit Function
end if
'修改下面的9为想要的深度
For i=1 to 9
fso_folder_new Lq_Path&i
Lq_Cfolder Lq_Num+1,Lq_Path&i&"\"
Next
End Function
'执行操作
Lq_