Write a program to display all subfolders in a given folder

filespec = "C:\Program Files\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsodri = fso.GetFolder(filespec)
Set fsubfile = fsodri.Subfolders
For Each fsubfile1 In fsubfile
MyMsg = MyMsg & "Name is : " & fsubfile1.Name & "
"
Next
MsgBox MyMsg