CD-Rom Drive

is there a way to know when a cd is in the drive, at the same time it is recognized by the system?

Put this in a Timer:

Code:

---

Function DetectCD() As Boolean
On Error GoTo ErrHan
  Dir "D:\", vbDirectory
  DetectCD = True
Exit Function

ErrHan:
  DetectCD = False

End Function

Private Sub Timer1_Timer()
If DetectCD() Then
MsgBox "There is a CD in Drive D!"
Timer1.Enabled = False
Exit Sub
Else
'No CD
End If
End Sub

---