VBS gets the code for all folder names under the current directory _vbs

VBS gets the names of all folders under the current directory, excluding subfolders. I want to work with each folder, so it's best to use the loop output.

When testing to ensure that there is a folder in the current directory can be, otherwise the output is empty.

Copy Code code as follows:

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 all uu in F
T=t & UU. Path & vbCrLf
Next
MsgBox T

Effect Chart: