js 目录列举函数

　　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);

　　}