有時(shí)候我們需要獲取當(dāng)前目錄下所有文件夾的名字，那么就可以參考下面的代碼了
VBS獲取當(dāng)前目錄下所有文件夾名字，不包括子文件夾。我要給每個(gè)文件夾進(jìn)行操作，所以最好用循環(huán)輸出。
測(cè)試的時(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
效果圖：
更多信息請(qǐng)查看IT技術(shù)專(zhuān)欄
公考類(lèi)
招聘類(lèi)
各類(lèi)考試
公眾號(hào)
事業(yè)單位
當(dāng)前位置：