hta(vbs)列目录树代码_hta教程-查字典教程网

复制代码代码如下:

<html>

<head>

<title>磁盘管理器</title>

</head>

<body>

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>"

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>"

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

</script>

</body>

</html>