救急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[zym1110]

请问各位：怎样判断光驱中是否有光盘？

[zym1110]

没有人知道吗

[foolishtiger]

1.用FSO
2.用错误捕获

[icyer]

Dim fso As New FileSystemObject
Dim drive As drive

For Each drive In fso.Drives
If drive.DriveType = CDRom Then
If drive.IsReady Then
MsgBox "CDROM中有盘！"
Else
MsgBox "CDROM中没盘！“"
End If
Exit For
End If
Next

[icyer]

当然，你还得先“引用”“Microsoft Scripting Runtime”