代碼如下:
<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>