problemas con cd

isra
03 de Mayo del 2004
necesito saber como puedo dectectar si tengo un cd en mi unidad de cd y si este esta nuevo(sin datos)


sdemingo
03 de Mayo del 2004
Hola,

Dim Unidad As Drive
Dim fs As New FileSystemObject

For Each unidad in fs.Drives
If unidad.DriveType = CDRom Then
If unidad.IsReady Then
' Hay CD dentro
If unidad.
Else
' No hay CD dentro
End If
End If
Next unidad

salu2
sdemingo