代码如下：
<html>
<head>
<title>磁盘管理器</title>
</head>
<body>
<div id = "divlist"> </div>
<スクリプト言語= "vbscript">
サブリスト（スパンス）
Spath =置換（Spath、 "*"、 ""）
fso = createObject（ "Scripting.filesystemObject"）
set c_drive = fso.getFolder（spath）
c_files = c_drive.filesを設定します
c_folder = c_drive.subfoldersを設定します
shtml = "<table width = '100％' border = '1' cellspacing = '' cellpadding = '0'>"
C_FILESの各Aについて
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 = cheplage（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
End Sub
strcomputer = "。"
wbemservices = getobject（ "winmgmts：//"＆strcomputer）を設定します
wbemobjectset = wbemservices.execquery（ "win32_perfrawdata_perfdisk_logicaldiskから名前を選択"）
wbemobjectsetの各MOについて
If strrev（mo.name、 "："、-1、0）> 0 then
document.write "<input type = button value ="＆mo.name＆ "onclick = list（ '"＆mo.name＆ "/"＆ "'）>"
ifを終了します
次
</script>
</body>
</html>