如何检测CDROM中有无光盘
编号：QA001258
建立日期: 1999年6月30日 最后修改日期：2000年11月22日
所属类别：
LJS:
vb5.0
win98
如果我想在VB5.0中编写一个程式检测本地主机的CDROM中有无光盘，如果没有就给出出错提示，请问我该怎么做？说说用哪些函数就成谢谢！
回答:
你可以使用下面这个函数：
Public Function IsEmptyCDROM(sDrive As String)
Dim s
On Error GoTo ErrHandle
s = Dir(sDrive + ":\*.*")
IsEmptyCDROM = False
Exit Function
ErrHandle:
IsEmptyCDROM = True
End Function
如果你的光驱是E盘，调用IsEmptyCDROM("e")，如果返回值为False表示有光盘，返回True表示没有光盘。
此问题由李海、Taro回答。
| |
|
|
| |
|
|
