HTA 列目录--Asp/VBScript--编程设计网

=波波日志 > Asp/VBScript > HTA 列目录=

[转]HTA 列目录

把下面代码保存为.hta文件，然后双击运行即可。

-HTML

<html> 
<head> 
<title>磁盘管理器</title> 
</head> 
<body> 

<div id="DivList"></div> 

<script language="vbscript"> 

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 = "<table width='100%' border='1' cellspacing='0' cellpadding='0'>" 

   

               For Each a In c_files 
     sHTML = sHTML & "<tr><td>" 
     sBPath = a.Path 
     sHTML = sHTML & a.Path 
     sHTML = sHTML & "<br /></td></tr>" 
   Next 
   sHTML = sHTML & "</table>" 

   Document.getElementById("DivList").innerHTML = sHTML 


   For Each b In c_folder 
     sHTML = sHTML & "<tr><td>" 
     sBPath = b.Path 
     sBPath = Replace(sBPath, " ", "*") 
     sBPath = Replace(sBPath, "\", "\\") 
     sHTML = sHTML & "<a href=# onclick=vbs:List(""" & sBPath & """)>" & b.Path & "</a>" 
     sHTML = sHTML & "<br /></td></tr>" 
   Next 
   sHTML = sHTML & "</table>" 

   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 "<input type=button value="&mo.name&" onclick=list('"&mo.name&"\"&"')>" 
     end if 
     Next 

</script>  

</body> 
</html> 

http://hi.baidu.com/isbx/blog/item/1acfc99562f9d34cd0135eda.html

类别：Asp/VBScript　作者：转载　日期：2009-09-01　【评论：0】　

上一篇：再贴一段挂掉IIS的　
下一篇：ASP也使用ORM,给ASP上所有的SQL注入画上句号

暂时没有评论！

发表留言

百度赞助