hta(vbs)列目录树代码_hta教程-查字典教程网
hta(vbs)列目录树代码
hta(vbs)列目录树代码
发布时间:2016-12-28 来源:查字典编辑
摘要:复制代码代码如下:磁盘管理器SubList(sPath)sPath=Replace(sPath,"*","")SetFSO=CreateOb...

复制代码 代码如下:

<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学习
    热门hta学习
    脚本专栏子分类