繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > Hta > hta(vbs)列目录树代码
- Hta
- NCC Tools(never code counter tools) V1.0.1发布代码-代码统计工具
- XMLHttps
- 网易手机图片自由下载器（hta）
- 二进制文件转换为文本工具
- code collection v0.44 hta
- 超简陋浏览器
- MyHTML Player release v1.1
- ScriptomaticV2.hta学习脚本好工具
- tweakomatic hta 下载
- 用来通知论坛有新贴子的hta代码
- 用hta与ajax实现的五笔字型编码查询工具
- 用vbs在 HTA 内对脚本进行编码的方法
- 用vbs如何确定在 HTA 中选择了哪些文本？
- 创建一个在标题栏中没有“关闭”按钮的 HTA
- hta实现的涂鸦效果
- 使用hta保存utf8格式的文件的代码
- 用hta+javascript实现替换网站被下木马网页中的iframe
- 用hta[javascript]写的定时重启或关机的小工具
- 用hta实现制作的无殇 - 快书V1.1打包下载了
- hta实现涂鸦效果代码
Hta 中的 hta(vbs)列目录树代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 108 ::
收藏到网摘: n/a
一个网友在短消息里问我这个问题，并给出了他写的出错代码。短消息有字数限制，在此回复他一下。玩了两个月，没有写代码了，脑子不好用了。费了好大劲，最后还是请教了老马才把网友的代码更写出来，几乎是重写了，呵呵。
复制代码 代码如下:
<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>
评论 (0) All
