代码如下:
<html>
<head>
<title> 磁盘管理器 </title>
</head>
<body>
<div id = "divlist"> </viv>
<script language = "vbscript">
القائمة الفرعية (Spath)
Spath = استبدال (Spath ، "*" ، "")
set fso = createObject ("scripting.filesystemObject")
تعيين c_drive = fso.getfolder (Spath)
تعيين c_files = c_drive.files
تعيين c_folder = c_drive.subfolders
shtml = "<table width = '100 ٪' border = '1' cellSpacing = '0' cellpadding = '0'>"
لكل A في c_files
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
shtml = shtml & "<tr> <td>"
SBPath = B.Path
SBPath = استبدال (SBPATH ، "" ، "*")
SBPath = استبدال (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 = "."
تعيين wbemservices = getObject ("winmgmts: //" & strcomputer)
set wbemObjectset = wbemservices.execquery ("حدد الاسم من win32_perfrawdata_perfdisk_logicaldisk")
لكل مو في wbemobjectset
if Instrrev (mo.name ، ":" ، -1 ، 0)> 0 ثم
document.write "<type type = button value =" & mo.name & "onClick = list ('" & mo.name & "&" & "')>"
إنهاء إذا
التالي
</script>
</body>
</html>