7,788
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
icyer 2001-11-29
- 打赏
- 举报
当然，你还得先“引用”“Microsoft Scripting Runtime”
icyer 2001-11-29
- 打赏
- 举报
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
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
foolishtiger 2001-11-29
- 打赏
- 举报
1.用FSO
2.用错误捕获
2.用错误捕获
zym1110 2001-11-29
- 打赏
- 举报
没有人知道吗
