| 标题 | 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> |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。