[VBA] List folders using VBS

#copyright @ http://scriptdemo.blogspot.com parentFolder="C:\" Dim fso, folderOBJ, subF set fso=CreateObject("Scripting.FileSystemObject") if fso.folderexists(parentFolder) then    set folderOBJ=fso.GetFolder(parentFolder)    For Each subF in folderOBJ.SubFolders        'WScript.Echo subF.Name        msgbox("Found " & subF.Name)    Next else    msgbox(parentFolder & " dose not exist") end if