代码如下:
<html>
<head>
<Title> 磁盘管理器 </title>
</head>
<Body>
<div id = "divlist"> </div>
<Script Language = "VBScript">
Sub List (Spath)
Spath = Substitua (Spath, "*", "")
Set fso = createObject ("script.filesystemoBject")
Set c_drive = fso.getFolder (spath)
Definir c_files = c_drive.files
Definir c_folder = c_drive.subFolders
shtml = "<tabela width = '100%' borda = '1' Cellspacing = '0' CellPadding = '0'>"
Para cada A em c_files
shtml = shtml & "<tr> <td>"
sbpath = a.path
shtml = shtml & a.path
shtml = shtml & "<r/> </td> </tr>"
Próximo
shtml = shtml & "</ table>"
Document.getElementById ("Divlist"). Innerhtml = shtml
Para cada B em C_Folder
shtml = shtml & "<tr> <td>"
sbPath = B.Path
sbpath = substituir (sbpath, "", "*")
sbpath = reply (sbpath, "/", "//")
shtml = shtml & "<a href =# onclick = vbs: list (" "" & sbpath & "" ")>" & b.path & "</a>"
shtml = shtml & "<r/> </td> </tr>"
Próximo
shtml = shtml & "</ table>"
Document.getElementById ("Divlist"). Innerhtml = shtml
Final sub
strComputer = "."
Set wbemservices = getObject ("winmgmts: //" & strComputer)
Set wbemobjectSet = wbemservices.execQuery ("Selecione o nome de win32_perfrawdata_perfdisk_logicaldisk")
Para cada MO em WbemObjectSet
Se Instrrev (Mo.name, ":", -1, 0)> 0 Então
Document.Write "<Tipo de entrada = Button Value =" & Mo.Name & "OnClick = List ('" & Mo.Name & "/" & "')>"
final se
Próximo
</script>
</body>
</html>