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