<HTML><HEAD><TITLE>同文件夹内文本搜索器(vbs)</TITLE> <META http-equiv=Content-Type content=text/html; charset=gb2312> [removed] <!– Dim fso, f, f1, fc,fn,s,uf1,ufn Sub B1_onclick fn=T1.value ” pn=mid(location.pathname,2,len(location.pathname)-14) ShowFolderList(