好像没写错吧,那为什么没反应????????

Question

If aDrive.DriveType = CDRom And aDrive.IsReady = True Then
中的CDRom没有定义

Answer 1

Win2k下验证好用啊，没有错误，能够判断有无光盘，不过曼点

Answer 2

to:jyu1221(天同)
那是驱动器类型to: lovingkiss(你要答案我要分) 
不是吧,我也是用2000.怎么没反应????你放的光盘是自动拨放的吗?

Answer 3

是啊，我也在Win2000下试过了，你不妨把
cdrom 改为4试一下！

Answer 4

我的光盘是我自己刻录的文件，不是自动播放的
我是WIN2K服务器版，完全好用的；

Answer 5

阿，知道了，你把你代码里的
Private Sub Form1_Load()
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub
Form1_Load()改为Form_Load()OK!

Answer 6

楼上的,我改过了. 还是没反应.我的系统是WIN2000服务器,机器上挂了两个光驱, 有配置一样的朋友请帮忙试试

Answer 7

我认为慢是因为每次检测都要检测软驱,改成下面的会快些.
Private Sub SearchCD()   '检查光驱中是否有光盘
For Each aDrive In fso.Drives
    If aDrive.DriveLetter <> "A" Then
        If aDrive.DriveType = CDRom And aDrive.IsReady = True Then
           MsgBox "光驱" & aDrive.DriveLetter & "里有光盘"
        End If
    End If
Next
End Sub

Answer 8

你的Form1_Load()多了一个1所以没有执行，你的Timer事件就没有被激发
你可以在Timer里设一个断点试一下！

Answer 9

Private Sub Command1_Click()
Path = "G:"
msgbox IIf(Dir(Path, vbDirectory) <> "", "存在", "不存在")
End Sub