vbs怎么建多层文件夹

1. 用VBS如何创建文件夹

Option Explicit
dim i
For i=1 to 10
CreateObject("Scripting.FileSystemObject").CreateFolder i
Next
'将10改为100就生成100个文件夹。

2. 要一个vbs代码，打开后可以在指定位置创建一定数量的文件夹

在指定位置随机创建1－10的文件夹。

onerrorresumenext
setobjFSO=CreateObject("Scripting.FileSystemObject")
objFso.createfolder("C:123")
Randomize
d=Int(Rnd*10+1)
fori=1tod
Randomize
name=replace(""&time(),":",".")&Int(Rnd*1000+1)
objFso.createfolder("C:123"&name)
next
msgbox"创建完毕！"

3. 如何用CMD创建多层文件夹

一般情况下文件夹的创建不宜超过三层，如果真的需要，最可靠的办法就是一层层的往下建，快捷的办法也应该有，因为只有想不到，没能办不到。

4. 请教删除文件夹的VBS脚本怎么加入多个文件夹

call Del("C:\8.34FANYE\DATA\SH\TEMP")
'如果要添加文件夹就添加Del(fp1),Del(fp2)...
sub Del(folderspec)
Dim fso, files,file
timespec = 66
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderspec).Files
For Each file in files
If DateDiff("s", file.DateLastModified, now) > timespec then
fso.DeleteFile(file)
End If
Next
end sub

5. vbs创建文件夹

dimpathname,filename,fso,read,str,filepath
setfso=createobject("scripting.filesystemobject")
pathname="path.txt"
str="ShutdownScript
emotecomputer.txt"
iffso.fileexists(pathname)=truethen'先来判断它是一个有效的路径+文件,如果成立,以下均按正常程序执行
read=fso.opentextfile(pathname).readall'读取全文
foreachiinsplit(read,vbcrlf)'遍历全文每行的内容
ifinstr(right(i,1),"")=0thenfilename=i&""&strelsefilename=i&str'在执行下面代码之前先进行格式化处理文本
filepath=left(filename,instrrev(filename,""))'分离路径
iffso.folderexists(filepath)=falsethenfso.createfolderfilepath'如果路径存在则创建文件夹
iffso.fileexists(filename)=falsethenfso.createtextfile(filename).write"test"'如果文件存在则创建文件写入test
next
endif

6. 用VBS通过for循环批量创建文件夹和文件

Sub locCreateResultFolder()
Dim fso
Dim i,vPath
Set fso = CreateObject("Scripting.FileSystemObject")
vPath = "C:\Program Files\personal\"
fso.CreateFolder "C:\Program Files\personal\"
fso.CreateFolder "C:\Program Files\personal\testFolder"
for i=0 to 100
If Not fso.folderexists(vPath&"testFolder\"&i) Then
fso.CreateFolder(vPath&"testFolder\"&i)
End If
next
End Sub
call locCreateResultFolder
'createfolder方法在创建目录时，上层目录必须存在。
'例如创建 c:\1\2，如果c盘下没有目录1，那么就会出错（不创建目录2）。

7. 如何一次性新建多个文件夹

新建一个文件夹可以说是简单的不能再说的问题了，但如果在一个地方需要你建立十个八个文件夹，你是否有简便的方法呢?如我们要分别建立一班、二班、三班……十班这10个文件夹。其实我们可以请出创建文件夹命令的祖师爷DOS命令MD，就能在XP下一次性创建这些文件夹。

单击“开始”→运行，输入CMD回车或点“确定”，进入到DOS命令提示窗口，输入D：回车(转到D盘，注意冒号不能省略)，接着输入CD空格BAK回车(意思是进入到BAK文件夹中)，最后输入MD空格一队空格二队空格三队……十队回车，这样就一次把一队、二队……十队这10个文件夹在BAK文件夹中都创建出来了。我们稍带着输入DIR回车(显示文件和文件夹命令)，就会看到新建的这10个文件夹。不过在输入上面这些字符时，必须要保证在半角状态下进行，字母大小写都可以。怎么样，是不是比在视窗界面下操作方便多了。

8. 如何批量新建文件夹

1.用软件下载地址: http://work.newhua.com/cfan/200701/mutlidir.rar解压后，其中的MultiDir.vbs可以放在任意文件夹中，默认位置为“F:\MyFile\MultiDir.vbs”，如果放到其他文件夹中，则压缩包中的Reg.reg需要修改为相应的路径后再双击导入才行，以下面这行注册表文件行来解释。[HKEY_CLASSES_ROOT\MultiDir_EggFile\shell\open\command]@="\"F:\\MyFile\\MultiDir.vbs\" \"%1\""由于在REG文件的字符串变量中(即“@="……"”中的值)，反斜杠和双引号需要需要在前面多加一个反斜杠来转义，比如“C:\Windows\system32”应该表示为“C:\\Windows\\system32”。修改完并导入注册表后，在新建菜单中就会出现一个“多文件夹”2.用DOS@echo off for /L %%c in (1,1,10)do md %%c exit 从1到10 以1加1方式递增方式排列

9. 如何一次新建多个文件夹

一次性新建多个文件夹的步骤：
1、开始——运行（win+r）输入notepad
创建一个文本文档；
2、在这个文本文档中，输入如下内容：
md
一月
二月
三月
四月
五月
六月
七月
八月
九月
十月
十一月
十二月
说明：md:在DOS操作系统中用来建立目录的命令。
3、文件—另存为，名字为“批量新建文件夹.bat
”。bat说明：.bat文件是可执行文件，由一系列命令构成，其中可以包含对其他程序的调用。
4、下面就可以测试该批处理命令的效果。

10. 如何快速新建多个文件

手太快了！！”小A被眼前的景象惊呆了，竟然有人可以一次新建这么多文件夹。这可把小A郁闷坏了，平时自诩为高手的他也一直被新建多个文件夹时的麻烦所困扰，而眼前的这个人居然一次新建了多个文件夹，难道真是因
为手快吗？

我们花了多少时间在新建文件夹上

新建单个文件夹的操作包括“右击空白处→选择菜单‘新建→新建文件夹’→输入文件夹名称”，大约耗时5秒。

新建文件夹总时间＝5秒×文件夹数量

可见，在新建多个文件夹时我们把大量的时间浪费在冗余的操作步骤上了……

刚才那个一次新建多个文件夹的“高手”究竟是怎么做的呢？原来他只用了1个VBS脚本和1个注册表文件就搞定了，这个脚本允许你在输入文件夹名称时用分号隔开多个文件夹名，然后调用系统中的文件系统对象(FSO)来生成这些文件夹。至于注册表文件，主要就是在原来新建文件的位置建立指向这个VBS脚本文件的键值。由于代码较长，所以在杂志只给出下载链接，有兴趣研究的读者可以参考其中注释。

下载地址:http://work.newhua.com/cfan/200701/mutlidir.rar

解压后，其中的MultiDir.vbs可以放在任意文件夹中，默认位置为“F:\MyFile\MultiDir.vbs”，如果放到其他文件夹中，则压缩包中的Reg.reg需要修改为相应的路径后再双击导入才行，以下面这行注册表文件行来解释。

[HKEY_CLASSES_ROOT\MultiDir_EggFile\shell\open\command]

@="\"F:\\MyFile\\MultiDir.vbs\" \"%1\""

由于在REG文件的字符串变量中(即“@="……"”中的值)，反斜杠和双引号需要需要在前面多加一个反斜杠来转义，比如“C:\Windows\system32”应该表示为“C:\\Windows\\system32”。修改完并导入注册表后，在新建菜单中就会出现一个“多文件夹”的选项(见图1)，选择后就会出现要求输入多个文件夹名的对话框(见图2)。