PROGRAM-21

reding subfolder in specified folder
Function getfolder (fdrname)
Set fso=createobject ("scripting.filesystemobject")
Set fdr=fso.getfolder(fdrname)
Set frd=fdr.subfolders
If frd.count >0 Then
For each fd in frd
print(fdname & "\" & fd.name)
Next
End If
End Function
getfolder "E:\"