文章摘要
这篇文章介绍了使用Visual Basic脚本实现磁盘管理器功能的技巧。脚本的主要功能是根据给定的路径，自动处理磁盘文件和文件夹的结构，并将结果以HTML格式显示在Web页面上。具体实现步骤包括替换路径中的特殊字符、创建磁盘文件对象、遍历文件和子文件夹，并生成包含文件路径的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 & “”
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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
