Expulsar cd-rom

Puedes conseguir lo que quieres a través de WSH. A continuación te muestro
como sería

Const CDROM = 4
For Each d in CreateObject("Scripting.FileSystemObject").Drives
If d.DriveType = CDROM Then
Eject d.DriveLetter & ":\"
End If
Next

Sub Eject(CDROM)
Dim ssfDrives
ssfDrives = 17
CreateObject("Shell.Application")_
.Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject")
End Sub

Saludos,


Angel J. Hernández M.
MCP - MCAD - MCSD - MCDBA
http://groups.msn.com/desarrolladoresmiranda
http://www.consein.com


"Dudoso" wrote in message
news:

como podria, con alguna rutina, hacer que la unidad cd-rom expulsara el
cd-rom
Gracias por las posibles respuestas
Un saludo

Otra posible manera:

Dim oWMP = CreateObject("WMPlayer.OCX.7")
Dim colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
Do
For i As Integer = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
For i As Integer = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject()
Next ' cdrom
Loop
End If

Y cuidado con los poltergeis. :-D

Alex
(Vigo, España)

"Dudoso" escribió en el mensaje
news:

como podria, con alguna rutina, hacer que la unidad cd-rom expulsara el
cd-rom
Gracias por las posibles respuestas
Un saludo