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

文章摘要

这篇文章描述了一个磁盘管理器的脚本代码，用于从文件系统中提取文件夹列表并生成对应的HTML内容。代码通过以下步骤实现功能： 1. 替换路径中的星号“*”为空白字符，便于后续处理。 2. 使用Scripting.FileSystemObject创建对象，获取文件夹内容。 3. 遍历文件夹中的文件和子文件夹，生成包含文件路径的HTML字符串。 4. 将生成的HTML内容插入到指定的div中，用于显示文件夹内容。代码的主要目的是自动化文件夹内容的HTML化处理，帮助用户更高效地管理和显示磁盘空间。

磁盘管理器

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

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

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