cscript.exe How to obtain a list of sub folders within a folder

Question

I am used to using creat object fucntions to obtain a list of files within a folder:-

Set objFSO = CreateObject("Scripting.FileSystemObject")