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

随心笔谈9个月前发布 admin
75 0

磁盘管理器

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

© 版权声明

相关文章