frontpage在SubFolders处提示automation服务器不能建立对象,ie不提示。

function get_sub() { var fso = new ActiveXObject("Scripting.filesystemobject"); var getfso=fso.GetFolder("D:\\").SubFolders; for(prop in getfso) {

alert(prop); }

}

这是在某网站上抄得，也不行，同样的提示

function ShowFolderList(folderspec) { var fso, f, fc, s; fso = new ActiveXObject("Scripting.FileSystemObject"); f = fso.GetFolder(folderspec); fc = new Enumerator(f.SubFolders); s = ""; for (;!fc.atEnd(); fc.moveNext()) { s += fc.item(); s += "<br>"; } return(s); }

曾经抄过一段vbs的，可以用，那段找不着了