新建N个文件夹，并把名字分别名为1，2，3....N，怎么做呢？
答案:2 悬赏:10 手机版
解决时间 2021-12-17 17:31
- 提问者网友：孤酒醉
- 2021-12-17 09:24
用VB，bat，dos都可以。
最佳答案
- 五星知识达人网友：失而复得
- 2021-12-17 10:28
批处理
@echo off
set n=10
for /l %%i in (1,1,%n%) do md %%i
@echo off
set n=10
for /l %%i in (1,1,%n%) do md %%i
全部回答
- 1楼网友：尘沙飞扬
- 2021-12-17 10:47
sub addnewfolder()
dim f as integer
dim foldername as string
n = inputbox("请输入需要创建的工程个数：", "请输入需要创建的工程文件夹个数：")
for i = 1 to n
foldername = i
mypath = "d:\" ' 指定路径。
myname = dir(mypath, vbdirectory) ' 找寻第一项。
do while myname <> "" ' 开始循环。
' 跳过当前的目录及上层目录。
f=0
if (getattr(mypath & myname)) = vbdirectory then
if myname = foldername then
f = 1
exit do
end if
end if
myname = dir ' 查找下一个目录。
loop
if f = 0 then
dim fso as object
set fso = createobject("scripting.filesystemobject")
fso.createfolder ("d:" & foldername)
else
msgbox "存在同名工程" & foldername & vblf & "没有为你重创建"
end if
next
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯