Detectar CD con VB

Web BoMM
07 de Mayo del 2004
Agradeceria cualquier codigo que permita detectar que hay un CD en la unidad, poniendo un 1 en un campo si hay CD, o un 0 si no lo hay.

Ich
07 de Mayo del 2004
Esto es lo que encontre en un libro, espero te sea util:

Public Function TestForDataCD(TestFile As String) As String

Dim nDrive as String
Dim i as integer
Dim nTest as String

on error Resume Next

For i=67 to 90
ndrive=chr$(i) & ":"
if GetDriveType(nDrive)=Drive_CDROM then
ntest=dir(ndrive & testFile)
if len(ntst) then
testfordatacd=ndrive
exit function
endif
endif
next ´i
end function