Copy Code code as follows:
<title> Disk Manager </title>
<body>
<div id= "Divlist" ></div>
<script language= "VBScript" >
Sub List (spath)
spath = Replace (spath, "*", "")
Set FSO = CreateObject ("Scripting.FileSystemObject")
Set c_drive = FSO. GetFolder (spath)
Set c_files = c_drive. Files
Set C_folder = c_drive. Subfolders
SHTML = "<table width= ' 100% ' border= ' 1 ' cellspacing= ' 0 ' cellpadding= ' 0 ' >"
For all A in c_files
SHTML = SHTML & "<tr><td>"
Sbpath = A.path
SHTML = SHTML & A.path
SHTML = SHTML & "<br/></td></tr>"
Next
SHTML = SHTML & "</table>"
document.getElementById ("Divlist"). InnerHTML = SHTML
For each B in C_folder
SHTML = SHTML & "<tr><td>"
Sbpath = B.path
Sbpath = Replace (Sbpath, "", "*")
Sbpath = Replace (Sbpath, "\", "\ \")
SHTML = SHTML & "<a href=# onclick=vbs:list (" "& Sbpath &" "") > "& B.path &" </a> "
SHTML = SHTML & "<br/></td></tr>"
Next
SHTML = SHTML & "</table>"
document.getElementById ("Divlist"). InnerHTML = SHTML
End Sub
StrComputer = "."
Set wbemservices = Getobject ("winmgmts:\\" & StrComputer)
Set wbemobjectset=wbemservices.execquery ("Select name from Win32_PerfRawData_PerfDisk_LogicalDisk")
For each Mo in wbemObjectSet
If InStrRev (Mo.name, ":",-1, 0) >0 Then
document.write "<input Type=button value=" &mo.name& "onclick=list (' &mo.name&" \ "&") > "
End If
Next
</script>
</body>