函则带裤数生成代码法：不需要变量，函数会根据foldermn内容自动生成代码：
你只要指定foldername="0,1,2,....,n"，n为任意字符或字符串(其实超过5层孙简运行时间就很长).
函数会根据foldername自动生成文件夹树代码。然后通过execute执行行知生成的代码
程序如下，根据foldernm内容在C盘根目录生成文件夹树：
========================================================
Set fso = CreateObject("Scripting.FileSystemObject")
foldernm="0,1,3,4,5,6,7,8,9,ni hao"
mdarry=Split(foldernm,",")
execute code(mdarry)
function code(mdarry)
a1="for each i":a2=" in mdarry":b1="fso.createfolder(":b2=")":c="next":j=0
for each i in mdarry
code=code&a1&cstr(j)&a2&vbcrlf&b1&nm(j)&b2&vbcrlf:d=d&vbcrlf&c:j=j+1
next:code=code&d
end function
function nm(i)
for j=0 to i:nm=nm&"&"&"i"&cstr(j)&"&"&chr(34)&"\"&chr(34):next
nm=left(nm,len(nm)-4):nm=chr(34)&"c:\"&chr(34)&nm
end function
========================================================
㈡ 用VBS如何创建文件夹
Option Explicit
dim i
For i=1 to 10
CreateObject("Scripting.FileSystemObject").CreateFolder i
Next
'将10改为100就生成100个文件内夹。容
㈢ 要一个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"创建内完容毕！"
㈣ VBS如何通过FSO创建日期命名的文件夹，并在文件夹里创建时间命名的文档。
Const ForReading = 1, ForWriting = 2, ForAppending = 8
AA = "D:\"&FormatDateTime(Date, 1)
BB = AA & "\"& hour(time) & Minute(time) & Second(time)&".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
msgbox fso.FolderExists(AA)
IF fso.FolderExists(AA)=FALSE THEN
Set f = fso.CreateFolder(AA)
END IF
Set f = fso.OpenTextFile(BB, ForWriting, True)
f.Write "嗨，你好！"
f.Close
㈤ VBS中sub详细用法。
Sub addnewfolder(path,foldername) '新建文件夹函数
Dim fso,f,fc,nf '定义变段羡量
Set fso = CreateObject("scripting.filesystemobject") '插件fso对象
Set f = fso.getfolder(path) '取握笑拍得path参数的文件夹对象
Set fc = f.SubFolders 'path参数文件夹升知下的子文件夹
If foldername <> "" Then '如果要创建的文件名存在
Set nf = fc.add(foldername) '在这个文件夹下创建新的文件夹
Else
Set nf = fc.add("new folder") '在这个文件夹下创名为new folder的文件夹
End If
End Sub
addnewfolder "d:\","我是新的文件夹" '在D盘新建一个名为 我是新的文件夹 的文件夹
addnewfolder "d:\123","我是新的文件夹" '在D盘123文件夹里新建一个名为 我是新的文件夹 的文件夹
㈥ 用VBS创建多层文件夹——简单的,求热心人指点
' VBScript sample using Windows Script Host
Sub create(fso,path)
If fso.FolderExists(path) Then
Exit Sub
End If
If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
create fso,fso.GetParentFolderName(path)
End If
fso.CreateFolder(path)
End Sub
Set fso = CreateObject("scripting.filesystemobject")
create fso,"c:/a/a/a/a/a/a/a/"
set fso = Nothing
㈦ 如何创建加密文件夹和用VBS如何创建文件夹
如果是xp，且你文件夹所在的分区是ntfs格式，那么可通过用户安全设置来达到加密文件夹的效果
方法1：“加密内容保护数据”
属性——常规——高级——弹出对话框如图，勾选“加密内容以便保护数据”
xp系统将“seven”文件夹的名字变成了绿色的
如果你启用来宾用户或其他用户，那么他们看不到这个文件夹中的内容，达到了加密的目的。
2、利用用户权限（ntfs格式下）
文件夹选项中“使用简单文件共享（推荐）”这一项默认是勾选的，
但默认设置阻碍了我们看到文件夹属性——“安全”这一选项。……“安全”选项可选后，我们可以给用户分配权限了
分配权限是要注意，别把自己也关在门外了！……
设置成功后系统可以拒绝其他人访问该文件夹
㈧ 用vbs如何新建文件夹
任意路耐迅径建立
mkdir "路径"
当晌数前路径建立
mkdir app.path & "\文宴亩首件夹名"
㈨ 如何用vbs创建和删除文件夹
首先，创建文件系统对象，即filesystemobject,然后使用此对象的方法来创建版
实例
对于本题：
set fso=createobject("scripting.filesystemobject")
'创建文件权系统对象fso
set f=fso.createfolder("c:\test")
'用文件系统对象fso的方法createfolder，创建文件夹c:\test
'并将返回的文件夹对象c:\test，赋给f,从而得到文件夹对象的一个实例
'后面可以对此对象进行引用，如想得到其大小，可用f.size
MsgBox "去看看吧，文件夹10秒后会被删除"
createobject("wscript.shell").run "c:\"
wsh.sleep 10000
fso.deletefolder("c:\test")
'对于文件、文件夹的删除操作，由于被删除了，也就无法再建立连接了
'且它也没有返回值，无法将它赋给变量
看看能不能看懂
㈩ 用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）。