hta(vbs)列目录树代码- Hta - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 脚本技术 > Hta > hta(vbs)列目录树代码

技术文章搜索

关键字

Hta 中的 hta(vbs)列目录树代码

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2010-01-10 浏览: 110 ::

收藏到网摘: n/a

hta作品笨狼CSDN爬虫适用于hta的Sleep函数

一个网友在短消息里问我这个问题，并给出了他写的出错代码。短消息有字数限制，在此回复他一下。玩了两个月，没有写代码了，脑子不好用了。费了好大劲，最后还是请教了老马才把网友的代码更写出来，几乎是重写了，呵呵。

复制代码代码如下:

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

hta作品笨狼CSDN爬虫适用于hta的Sleep函数

Hta 中的 hta(vbs)列目录树代码

评论 (0) All