VBS獲取當前目錄下所有文件夾名字的代碼
更新時間：2013年09月03日 16:39:43 作者：
有時候我們需要獲取當前目錄下所有文件夾的名字，那么就可以參考下面的代碼了
VBS獲取當前目錄下所有文件夾名字，不包括子文件夾。我要給每個文件夾進行操作，所以最好用循環(huán)輸出。
測試的時候要保證當前目錄下有文件夾才可以，否則輸出為空。
Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t
效果圖：
測試的時候要保證當前目錄下有文件夾才可以，否則輸出為空。
復制代碼 代碼如下:
Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t
效果圖：
相關(guān)文章
用vbs實現(xiàn)的XP序列號替換器...2007-10-10
看了沼澤介紹的wmi腳本相關(guān)知識，對新手是個不錯的教材，如果想和系統(tǒng)結(jié)合的更好，想實現(xiàn)更大功能的代碼，那么學習vbs就不得不用wmi腳本2008-06-06
VBS教程：VBscript語句-For...Next 語句
VBS教程：VBscript語句-For...Next 語句...2006-11-11
vbscript 調(diào)用WebService實現(xiàn)代碼
vbscript 調(diào)用WebService實現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
利用vbs腳本實現(xiàn)設(shè)置IE的打印頁眉頁腳信息
這篇文章主要為大家分享下通過vbs腳本實現(xiàn)設(shè)置IE的打印頁眉頁腳信息的代碼，需要的朋友可以參考下2007-02-02
VBS教程：方法-DeleteFolder 方法...2006-11-11
系統(tǒng)服務(wù)有可能被 rootkit 隱藏，但有些時候我們?nèi)钥梢詮淖员碇姓业较嚓P(guān)的信息。建議以管理員權(quán)限運行，否則有些服務(wù)列舉不出來或出現(xiàn)錯誤的提示2013-09-09
VBS教程：方法-SkipLine 方法...2006-11-11
VBS教程：屬性-RootFolder 屬性...2006-11-11
將VBS或ASP中的代碼轉(zhuǎn)成一句話形式 以前都以為直接把換行符換成冒號就可以了...2009-07-07