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