- - 找一个列出目录和文件的hta - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

<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>