呵呵，原来是团友啊我写了一个！！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 fso = CreateObject("scripting.filesystemobject")
With fso.GetFolder(".")
For Each SB In .SubFolders
WScript.Echo sb.name
Next
End With
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024