代码如下:
<html>
<adal>
<Title> 磁盘管理器 </TITAL>
</ head>
<body>
<div id = "divlist"> </div>
<script linguisse = "vbscript">
Sous-liste (SPATH)
spath = remplacer (spath, "*", "")
Set fso = createObject ("scripting.fileSystemObject")
Définir c_drive = fso.getfolder (spath)
Définir c_files = c_drive.files
Définir C_Folder = C_Drive.Subfolders
shtml = "<table width = '100%' border = '1' cellSpacing = '0' cellpadding = '0'>"
Pour chacun A en C_Files
shtml = shtml & "<tr> <td>"
sbpath = a.path
shtml = shtml & a.path
shtml = shtml & "<br /> </td> </tr>"
Suivant
shtml = shtml & "</s table>"
Document.getElementById ("Divlist"). InnerHtml = shtml
Pour chaque B en C_Folder
shtml = shtml & "<tr> <td>"
sbpath = b.path
sbpath = remplacer (sbpath, "", "*")
sbpath = remplacer (sbpath, "/", "//")
shtml = shtml & "<a href = # onclick = vbs: list (" "" & sbpath & "" ")>" & b.path & "</a>"
shtml = shtml & "<br /> </td> </tr>"
Suivant
shtml = shtml & "</s table>"
Document.getElementById ("Divlist"). InnerHtml = shtml
Sub-Sub
strComputer = "."
Définissez WBEMServices = GetObject ("WinMgmts: //" & StrComputer)
Définir wbemObjectSet = wbemServices.execQuery ("Sélectionner le nom de Win32_perfrawdata_perfdisk_logicaldisk")
Pour chaque MO dans WBEMObjectSet
Si instrrrev (mo.name, ":", -1, 0)> 0 alors
Document.Write "<entrée type = Button Value =" & mo.name & "onClick = list ('" & mo.name & "/" & "')>"
terminer si
Suivant
</cript>
</docy>
</html>