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

加支付宝好友偷能量挖...


评论(0)网络
阅读(95)喜欢(0)Asp/VBScript