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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
相关文章
