hta(vbs)列目录树代码

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>