web33.html

javascript 的一些简单例子 主要面对初学者

<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>