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>

发表评论

发表评论