一个网友在短消息里问我这个问题,并给出了他写的出错代码。短消息有字数限制,在此回复他一下。玩了两个月,没有写代码了,脑子不好用了。费了好大劲,最后还是请教了老马才把网友的代码更写出来,几乎是重写了,呵呵。


<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>

最新资讯
美媒:因炸弹威胁 Facebook总部大楼被疏散

美媒:因炸弹威胁 Faceb

据彭博社报道,因炸弹威胁,Facebook总部大楼被疏散。
2018年诺贝尔奖颁奖仪式在斯德哥尔摩举行

2018年诺贝尔奖颁奖仪

包括瑞典王室主要成员、政界领导人及各界人士在内的13
嫦娥四号奔月进行时,月球为啥有个“背面”?

嫦娥四号奔月进行时,月

地球和月球相互绕转,且相互具有万有引力,彼此都会给对方
法制日报:用乘车规则划清网约车和乘客的权利界线

法制日报:用乘车规则划

“醉酒乘车规则”真正的意义并不是了结能不能拒载的是
为了讨雌性鸟的欢心,雄性鸟类付出了哪些努力?

为了讨雌性鸟的欢心,雄

为什么孔雀开屏那么漂亮,画眉鸟的歌声那么花哨婉转,北美
华人科学家发明免疫治疗纳米喷胶,可激活免疫系统

华人科学家发明免疫治

当然,作者也表示,需要在更大的动物模型和更大群体中验证
最新文章
HTA编辑HOST文件的脚本

HTA编辑HOST文件的脚

一个修改HOST文件的小工具,利用FSO实现,代码比较长,功能
学习正则帮手笨狼正则练习器

学习正则帮手笨狼正则

把下面的文件保存为hta文件,运行即可
hta实现的笨狼XSLT练习器

hta实现的笨狼XSLT练

学习XSLT的朋友,用这个小工具不错
hta实现的定时关机小程序

hta实现的定时关机小

这个小程序使用hta写的,用了vbscript代码实现,喜欢的朋
用来通知论坛有新贴子的hta代码

用来通知论坛有新贴子

做了个用来通知论坛有新贴子的hta把下面的代码copy到
用vbs如何确定在 HTA 中选择了哪些文本?

用vbs如何确定在 HTA

问:您好,脚本专家!如何确定在HTA中选择了哪些文本?--DO答: