PROGRAM-19

program for reading folders name in folders
Set fso=createobject ("scripting.filesystemobject")
Set ts=fso.getfolder("E:\biswa")
Set fdr=ts.subfolders
For each fd in fdr
print (fd.name)
Next
print("over")