| 标题 | hta(vbs)列目录树代码 |
| 内容 | 代码如下: <html> <head> <title>磁盘管理器</title> </head> <body> <div id=divlist></div> <script language=vbscript> sub list(spath) spath = replace(spath, *, ) set fso = createobject(scripting.filesystemobject) set c_drive = fso.getfolder(spath) set c_files = c_drive.files set c_folder = c_drive.subfolders shtml = <table width='100%' border='1' cellspacing='0' cellpadding='0'> for each a in c_files shtml = shtml & <tr><td> sbpath = a.path shtml = shtml & a.path shtml = shtml & <br /></td></tr> next shtml = shtml & </table> document.getelementbyid(divlist).innerhtml = shtml for each b in c_folder shtml = shtml & <tr><td> sbpath = b.path sbpath = replace(sbpath, , *) sbpath = replace(sbpath, \, \\) shtml = shtml & <a href=# onclick=vbs:list( & sbpath & )> & b.path & </a> shtml = shtml & <br /></td></tr> next shtml = shtml & </table> document.getelementbyid(divlist).innerhtml = shtml end sub strcomputer = . set wbemservices = getobject(winmgmts:\\ & strcomputer) set wbemobjectset=wbemservices.execquery(select name from win32_perfrawdata_perfdisk_logicaldisk) for each mo in wbemobjectset if instrrev(mo.name,:, -1, 0)>0 then document.write <input type=button value=&mo.name& onclick=list('&mo.name&\&')> end if next </script> </body> </html> |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。