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


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

最新资讯
滴滴暂停孵化酒旅业务 负责人已经转岗

滴滴暂停孵化酒旅业务

滴滴如今对那些需要烧钱、却在短期之内无法带来直接收
盘点国产芯片概念股:华为子公司设计领域排名第一

盘点国产芯片概念股:华

芯片国产替代化的战略地位提升,市场也开始寻找细分行业
华为的5G技术,源于这种数学方法

华为的5G技术,源于这种

对于极化码来说,长度为N的数据块,其编码的复杂度是O(N lo
国产操作系统可以从Google Android、Fuchsia中学到什么?

国产操作系统可以从Go

基础操作系统的研发究竟有没有具体可行的方法论?
GitHub宣布已有3600万用户 还推出为项目捐款功能

GitHub宣布已有3600万

此外GitHub表示,企业产品的接受度增加了两倍。“财富全
马斯克称汽车交付量或超上季 使特斯拉股价7天内首涨

马斯克称汽车交付量或

在过去一周里,分析师对特斯拉股票失去信心,因为特斯拉拼
最新文章
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答: