- - 找一个列出目录和文件的hta - 中国DOS联盟论坛

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

第1楼　ooaf	发表于 2008-12-16 17:03
中级用户　发帖 162　积分 313
- - 找一个列出目录和文件的hta 记得在论坛里见过一个.hta 脚本，能列出目录和文件，搜索没找到，即发贴询问。 [ Last edited by ooaf on 2008-12-20 at 19:16 ]

第2楼　ooaf	发表于 2008-12-17 11:58
中级用户　发帖 162　积分 313
急用，请帮忙，多谢！

第3楼　ooaf	发表于 2008-12-20 14:43
中级用户　发帖 162　积分 313
<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>