代码如下:
<html>
<head>
<title> 磁盘管理器 </title>
</head>
<body>
<div id = "divlist"> </div>
<ภาษาสคริปต์ = "vbscript">
รายการย่อย (spath)
spath = แทนที่ (spath, "*", "")
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
ตั้งค่า c_drive = fso.getFolder (spath)
ตั้งค่า c_files = c_drive.files
ตั้งค่า c_folder = c_drive.subfolders
shtml = "<width table = '100%' border = '1' cellspacing = '0' cellpadding = '0'>"
สำหรับแต่ละ a ใน 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
สำหรับแต่ละ b ใน c_folder
shtml = shtml & "<tr> <td>"
sbpath = b.path
sbpath = แทนที่ (sbpath, "", "*")
sbpath = แทนที่ (sbpath, "/", "//")
shtml = shtml & "<a href =# onclick = vbs: รายการ (" "" & sbpath & "" ")>" & b.path & "</a>"
shtml = shtml & "<br/> </td> </tr>"
ต่อไป
shtml = shtml & "</table>"
document.getElementById ("DivList"). innerhtml = shtml
สิ้นสุดย่อย
strcomputer = "."
ตั้งค่า wbemservices = getObject ("winmgmts: //" & strcomputer)
ตั้งค่า wbemobjectset = wbemservices.execQuery ("เลือกชื่อจาก win32_perfrawdata_perfdisk_logicaldisk")
สำหรับแต่ละ mo ใน wbemobjectset
ถ้า instrrev (mo.name, ":", -1, 0)> 0 แล้ว
document.write "<อินพุต type = button value =" & mo.name & "onclick = list ('" & mo.name & "/" & "&")> "
สิ้นสุดถ้า
ต่อไป
</script>
</body>
</html>