<html> 
<head> 
<title>磁盤管理器</title> 
</head> 
<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 Each 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> 
</html> 