函則帶褲數生成代碼法：不需要變數，函數會根據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）。