IsReady 属性

[code]Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(drvpath)    Select Case d.DriveType        Case 0: t = "[/code]未知[code]"[/code][code]        Case 1: t = "[/code]可移动[code]"[/code][code]        Case 2: t = "[/code]固定[code]"[/code][code]        Case 3: t = "[/code]网络[code]"[/code][code]        Case 4: t = "CD-ROM"[/code][code]        Case 5: t = "RAM [/code]磁盘[code]"[/code][code]    End Select[/code][code]    s = "[/code]驱动器[code] " & d.DriveLetter & ": - " & t[/code][code]    If [b]d.IsReady[/b] Then [/code][code]        s = s & "<BR>" & "[/code]驱动器已就绪。[code]"[/code][code]    Else[/code][code]        s = s & "<BR>"  & "[/code]驱动器未就绪。[code]"[/code][code]    End If[/code][code]ShowDriveInfo = s[/code][code]End Function[/code]