hta(vbs)列目录树代码（目录树视频怎么下载）万万没想到

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

”

For Each a In c_files

sHTML=sHTML & “”

sBPath=a.Path

sHTML=sHTML & a.Path

sHTML=sHTML & “”

Next

sHTML=sHTML & “”

Document.getElementById(“DivList”).innerHTML=sHTML

For Each b In c_folder

sHTML=sHTML & “”

sBPath=b.Path

sBPath=Replace(sBPath, ” “, “*”)

sBPath=Replace(sBPath, “”, “\”)

sHTML=sHTML & “” & b.Path & “”

sHTML=sHTML & “”

Next

sHTML=sHTML & “”

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

end if

Next