web33.html

来自「javascript 的一些简单例子 主要面对初学者」· HTML 代码 · 共 15 行

<script language="VBScript">
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.drives
list=""
For Each d In dc
list=list+d.driveLetter+"-"
If d.drivetype=3 Then
list=list+d.sharename
ElseIf d.isready then
list=list+d.volumename
End If
list=list+vbnewline 
next
MsgBox list
</script>