代码如下：
<html>
<头>
<title>磁盘管理器</title>
</head>
<身体>
<div id =“ divlist”> </div>
<脚本语言=“ vbscript”>
子列表（SPATH）
spath =替换（spath，“*”，“”）
set fso = createObject（“ scripting.filesystemobject”）
设置c_drive = fso.getFolder（spath）
设置c_files = c_drive.files
设置C_FOLDER = C_DRIVE.SUBFOLDERS
shtml =“ <table width ='100％'border ='1'cellspacing ='0'cellpadding ='0'>”
每个a in c_files
shtml = shtml＆“ <tr> <td>”
sbpath = A.Path
SHTML = SHTML和A.Path
shtml = shtml＆“ <br/> </td> </tr>”
下一个
shtml = shtml＆“ </table>”
document.getElementById（“ divlist”）。innerhtml = shtml
对于C_FOLDER中的每个B
shtml = shtml＆“ <tr> <td>”
sbpath = B.Path
sbpath =替换（sbpath，“”，“*”）
sbpath =替换（sbpath，“/”，“ //”）
shtml = shtml＆“ <a href =＃onclick = vbs：list（“”＆sbpath＆“”“”）>“）>”＆B.Path＆“ </a>”
shtml = shtml＆“ <br/> </td> </tr>”
下一个
shtml = shtml＆“ </table>”
document.getElementById（“ divlist”）。innerhtml = shtml
结束子
strcomputer =“。”。
set wbemservices = getObject（“ winmgmts：//”＆strcomputer）
set wbemobjectset = wbemservices.execquery（“从win32_perfrawdata_perfdisk_logicaldisk中选择名称”）
对于WbeMobjectSet中的每个MO
如果Instrev（mo.name，“：”，-1，0）> 0
document.write“ <input type = button value =”＆mo.name＆“ onclick = list = list（'”＆mo.name＆“/”＆“''）>”
如果结束
下一个
</script>
</body>
</html>