var w=WScript.createObject("wscript.shell")
w.popup(showFolders("c:\\"))
function showFolders(foldername)
{
var fs,f,fc,s;
s=""
fs=new ActiveXObject("Scripting.FIleSystemObject");
f=fs.GetFolder(foldername);
fc=new Enumerator(f.SubFolders);
for(; !fc.atEnd(); fc.moveNext())
{s+=fc.item();
s+="\r\n"
}
return(s);
}