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>