<ht
ML>
<head>
<t
ITle>磁盘管理器</title>
</head>
<body>
<div id="DivList"></div>
<script language="
vbscript">
S
ub List(sPath)
sPath = Replace(sPath, "*", " ")
Set FSO = CreateObject("Scripting.File
SystemObject")
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 &
amp; "<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_Per
Fdisk_
LOGicaldisk")
For Each mo In wbemObjectSet
if Instr
rev(mo.name,":", -1, 0)>0 then
document.write "<input type=button value="&
;mo.name&" onclick=list('"&mo.name&"\"&"')>"
end if
Next
</script>
</body>
</html>