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)文章

用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本
一個(gè)可以隱藏任務(wù)欄圖標(biāo)的腳本，方便需要隱藏任務(wù)欄圖標(biāo)的朋友
2008-06-06
vbs實(shí)現(xiàn)的tasklist效果代碼
這個(gè)簡(jiǎn)短的腳本使用wmi顯示與工具“tasklist”中相同的信息，但只有在命令行下輸出結(jié)果。它也可以在另一臺(tái)計(jì)算機(jī)上查看遠(yuǎn)程任務(wù),需要的朋友可以參考下
2019-04-04
用vbs讀取Excel文件的函數(shù)代碼
用vbs讀取Excel文件的函數(shù)代碼，不需要安裝execl，需要的朋友可以參考下。
2011-12-12
從XML文件中獲取信息的vbs代碼
從XML文件中獲取信息的vbs代碼，這個(gè)腳本演示了如何通過(guò)MSXML從一個(gè)XML文件中的信息。示例XML文件是用于在網(wǎng)站上的相冊(cè)。此腳本將返回特定圖片的標(biāo)題。
2011-12-12
VBS sendkeys 模擬擊鍵操作問(wèn)題解決
今天有人問(wèn)我如何向APPlication 發(fā)送雙引號(hào)，分號(hào)等，我在這里做一個(gè)總結(jié)，方便你使用參考
2009-07-07
遠(yuǎn)程開(kāi)啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs
遠(yuǎn)程開(kāi)啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs...
2007-02-02
VBScript 打造自己的遠(yuǎn)程CMDShell附使用教程
這個(gè)cmdshell需要結(jié)合nc進(jìn)行配合使用，現(xiàn)在肉雞上執(zhí)行cmdshell然后在本地上面運(yùn)行nc，注意看下面的參數(shù)
2013-07-07
VBScript中On Error語(yǔ)句用法小結(jié)
VBScript語(yǔ)言提供了兩個(gè)語(yǔ)句和一個(gè)對(duì)象來(lái)處理"運(yùn)行時(shí)錯(cuò)誤"，如下，1.On Error Resume Next語(yǔ)句,2.On Error Goto 0語(yǔ)句,3.Err對(duì)象,下面我們就來(lái)詳細(xì)探討下。
2015-05-05
vbs實(shí)現(xiàn)的定時(shí)關(guān)機(jī)、重啟的腳本和程序
用vbs實(shí)現(xiàn)的定時(shí)關(guān)機(jī)重啟的腳本，沒(méi)想到haiwa2005年就寫(xiě)了這個(gè)東西，原理就是調(diào)用了shutdown和vbs的延時(shí)功能
2008-06-06
使用VBS獲取當(dāng)前日期的前一天并修正輸出格式
這篇文章主要介紹了使用VBS獲取當(dāng)前日期的前一天并修正輸出格式,需要的朋友可以參考下
2014-05-05