复制代码 代码如下:<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>