当前位置：首页 → 问答吧 → 怎么在hta中显示文件夹以及文件的大小啊

怎么在hta中显示文件夹以及文件的大小啊

时间：2011-02-11

来源：互联网

如何在以下代码中添加一个按钮，点击就会统计出来每个文件夹以及文件的大小？

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

作者: q102301203 发布时间: 2011-02-11

自己顶下！期待高手光临！

作者: q102301203 发布时间: 2011-02-12