足球游戏_中国足彩网¥体育资讯$

hta(vbs)列目录树代码
来源:易贤网 阅读:1031 次 日期:2016-06-30 09:28:23
温馨提示:易贤网小编为您整理了“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>

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:hta(vbs)列目录树代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标