代码如下:
<Html>
<head>
<title> 磁盘管理器 </iteme>
</head>
<body>
<Div ID = "Divlist"> </div>
<bahasa skrip = "vbscript">
Sub Daftar (Spath)
spath = ganti (spath, "*", "")
Atur fso = createObject ("Scripting.filesystemObject")
Set c_drive = fso.getFolder (spath)
Setel c_files = c_drive.files
Setel c_folder = c_drive.subfolder
shtml = "<tabel lebar = '100%' border = '1' cellspacing = '0' cellPadding = '0'>"
Untuk masing -masing dalam c_files
shtml = shtml & "<tr> <td>"
SBPath = A.Path
shtml = shtml & a.path
shtml = shtml & "<br /> </td> </tr>"
Berikutnya
shtml = shtml & "</able>"
Document.geteLementById ("divlist"). InnerHtml = shtml
Untuk setiap b di c_folder
shtml = shtml & "<tr> <td>"
sbpath = b.path
sbpath = ganti (sbpath, "", "*")
sbpath = ganti (sbpath, "/", "//")
shtml = shtml & "<a href =# onclick = vbs: list (" "" & sbpath & "" ")>" & b.path & "</a>"
shtml = shtml & "<br /> </td> </tr>"
Berikutnya
shtml = shtml & "</able>"
Document.geteLementById ("divlist"). InnerHtml = shtml
Akhir sub
strcomputer = "."
Set WBeMServices = getObject ("WinMgmts: //" & strcomputer)
Set WBeMObjectSet = WBeMerServices.Execquery ("Pilih Nama dari Win32_Perfrawdata_perfdisk_LogicalDisk")
Untuk setiap bulan di wbemobjectset
if instrrev (mo.name, ":", -1, 0)> 0 lalu
Document.write "<Input type = tombol value =" & mo.name & "onclick = list ('" & mo.name & "/" & "')>"
akhiri jika
Berikutnya
</script>
</body>
</html>