VBS獲取當(dāng)前目錄下所有文件夾名字的代碼
更新時(shí)間：2013年09月03日 16:39:43 作者：
有時(shí)候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了
VBS獲取當(dāng)前目錄下所有文件夾名字，不包括子文件夾。我要給每個(gè)文件夾進(jìn)行操作，所以最好用循環(huán)輸出。
測試的時(shí)候要保證當(dāng)前目錄下有文件夾才可以，否則輸出為空。
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
效果圖：
測試的時(shí)候要保證當(dāng)前目錄下有文件夾才可以，否則輸出為空。
復(fù)制代碼 代碼如下:
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
效果圖：
您可能感興趣的文章:
- 用vbs實(shí)現(xiàn)獲取電腦硬件信息的腳本_最新版
- 用VBS控制鼠標(biāo)的實(shí)現(xiàn)代碼（獲取鼠標(biāo)坐標(biāo)、鼠標(biāo)移動、鼠標(biāo)單擊、鼠標(biāo)雙擊、鼠標(biāo)右擊）
- 獲取外網(wǎng)IP并發(fā)送到指定郵箱的vbs代碼[已測]
- vbs 獲取當(dāng)前目錄的實(shí)現(xiàn)代碼
- vbs獲取當(dāng)前時(shí)間日期的代碼
- vbscript獲取文件的創(chuàng)建時(shí)間、最后修改時(shí)間和最后訪問時(shí)間的方法
- vbs中獲取腳本當(dāng)前路徑的2個(gè)方法
- 通過vbs獲取遠(yuǎn)程host文件并保存到指定目錄
- VBScript獲取CPU使用率的方法
- 使用vbs獲取雅虎匯率
相關(guān)文章
用vbs實(shí)現(xiàn)的XP序列號替換器...2007-10-10
看了沼澤介紹的wmi腳本相關(guān)知識，對新手是個(gè)不錯(cuò)的教材，如果想和系統(tǒng)結(jié)合的更好，想實(shí)現(xiàn)更大功能的代碼，那么學(xué)習(xí)vbs就不得不用wmi腳本2008-06-06
VBS教程：VBscript語句-For...Next 語句
VBS教程：VBscript語句-For...Next 語句...2006-11-11
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼
vbscript 調(diào)用WebService實(shí)現(xiàn)代碼，需要的朋友可以參考下。2009-11-11
利用vbs腳本實(shí)現(xiàn)設(shè)置IE的打印頁眉頁腳信息
這篇文章主要為大家分享下通過vbs腳本實(shí)現(xiàn)設(shè)置IE的打印頁眉頁腳信息的代碼，需要的朋友可以參考下2007-02-02
VBS教程：方法-DeleteFolder 方法...2006-11-11
系統(tǒng)服務(wù)有可能被 rootkit 隱藏，但有些時(shí)候我們?nèi)钥梢詮淖员碇姓业较嚓P(guān)的信息。建議以管理員權(quán)限運(yùn)行，否則有些服務(wù)列舉不出來或出現(xiàn)錯(cuò)誤的提示2013-09-09
VBS教程：方法-SkipLine 方法...2006-11-11
VBS教程：屬性-RootFolder 屬性...2006-11-11
將VBS或ASP中的代碼轉(zhuǎn)成一句話形式 以前都以為直接把換行符換成冒號就可以了...2009-07-07