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)。