如何得知CDROM中有碟?

Question

得到CDROM盤符,dir CDROM不行麼?

Answer 1

可能是getdriveinfo...忘了具体的api了，反正就是那个用来获取驱动器的label的那个api就行了，如果获取失败，就没有碟。

Answer 2

DIR AND API 轻松搞定

Answer 3

private function hascd() as boolean
dim sR as string
on error goto err_handle
sR=dir(x:\xxx.exe)'x是你的cd盘符，xxx.exe可以随便
hascd=true
exit function
err_handle:
'如果没有cd，err.number会等于52，要怎么判断看你的了，
'不判断也行，一般这里出错只会是没有cd的原因。
hascd=false
end function

Answer 4

何苦还要***.EXE呢? 直接用.或者..调用判断有无该目录即可!

Answer 5

to gameboy999:有那个函数吗，用法呢，我现在急着用。谢谢了
我想这样应该可以的，首先用getdrivetype找到那个是光驱，当然你如果知道的话，就不用这一步了，再用getdiskfreespace或者getdiskfreespaceex得到总的容量，如果不为0的话，就是有光盘了，如果为0，就是没有光盘了，方法非常笨，见笑了