代码如下 :
<html>
<헤드>
<title> </title>
</head>
<body>
<div id = "divlist"> </div>
<script language = "vbscript">
하위 목록 (SPATH)
spath = replace (spath, "*", "")
set fso = createobject ( "scripting.filesystemobject")
c_drive = fso.getfolder (spath) set
c_files = c_drive.files를 설정하십시오
c_folder = c_drive.subfolders를 설정합니다
shtml = "<테이블 width = '100%'border = '1'CellSpacing = '0'CellPadding = '0'>"
c_files의 각 A에 대해
shtml = shtml & "<tr> <td>"
sbpath = a.path
SHTML = SHTML & A.PATH
shtml = shtml & "<br/> </td> </tr>"
다음
shtml = shtml & "</table>"
document.getElementById ( "divlist"). innerhtml = shtml
C_Folder의 각 B에 대해
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>"
다음
shtml = shtml & "</table>"
document.getElementById ( "divlist"). innerhtml = shtml
종료 서브
strcomputer = "."
set wbemservices = getObject ( "winmgmts : //"& strcomputer)
set wbemobjectset = wbemservices.execquery ( ""win32_perfrawdata_perfdisk_logicaldisk에서 이름 선택 ")
WBEMOBJECTSET의 각 MO에 대해
If instrev (mo.name, ":", -1, 0)> 0이면
document.write "<input type = button value ="& mo.name & "onclick = list ( '& mo.name &"/"&"')> "
끝 If
다음
</스크립트>
</body>
</html>