50分求电脑牛人解答

来源：百度知道 编辑：UC知道 时间：2024/05/31 07:34:59
就是:
要创建9999个文件夹,按编号的,0001-9999这样的.
请问怎样一下就搞好.

谢谢
如果我要从某位数.0600,0601,0602...0699
这样呢,该怎么写

for /l %%a in (1,1,9999) do md %%a
把这个复制到文本文件,保存为后缀为bat(也就是批处理)的文件. 运行就可以在本目录下创造1~~~99999文件夹 （这个是个简单无聊的问题，不知道楼主要这么多文件夹做啥）

把下面复制到记事本,保存为后缀为vbs的文件，执行时，输入的文件夹路径必须是已经存在的路径

如果我要从某位数.0600,0601,0602...0699，需要将for i=1 to 9999中的1改为600，699就可以了,后面的0不要带,程序自动添加

Sub AddNewFolder(path)
Dim fso,f,fc,nf,msg,fso1
Set fso=CreateObject("scripting.FileSystemObject")
Set f=fso.GetFolder(path)
Set fso1=CreateObject("scripting.FileSystemObject")
Set fc=f.SubFolders
for i=1 to 9999
name=Right("000"&i,4)
Set nf = fc.Add(name)
next
end sub

Dim te
te=inputbox("文件夹路径")
Call AddNewFolder(te)