快捷導(dǎo)航

hta(vbs)列目錄樹代碼

更新時(shí)間：2008年10月26日 00:53:55 作者：

一個(gè)網(wǎng)友在短消息里問(wèn)我這個(gè)問(wèn)題，并給出了他寫的出錯(cuò)代碼。短消息有字?jǐn)?shù)限制，在此回復(fù)他一下。玩了兩個(gè)月，沒有寫代碼了，腦子不好用了。費(fèi)了好大勁，最后還是請(qǐng)教了老馬才把網(wǎng)友的代碼更寫出來(lái)，幾乎是重寫了，呵呵。

復(fù)制代碼代碼如下:

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