abrir la bandeja de cdrom

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Para abrir la primera, guárdate lo que hay entre las líneas (la línea no
se copia) en un archivo del bloc de notas con el nombre que quieras,
pero con extensión vbs. Doble click sobre el archivo para abrir la bandeja:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 2 to colCDROMs.Count - 2
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-


Y para la segunda:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-

Gabi wrote:

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Por cierto, crear un icono para cada una, y poder abrir sus bandejas
respectivas desde ellos.
"Gabi" escribió en el mensaje
news:uMmBH4l$

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador
de dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

Gracias, ya lo he aplicado.Correcto.

"José Gallardo" escribió en el mensaje
news:OgDCY8l$

Para abrir la primera, guárdate lo que hay entre las líneas (la línea no
se copia) en un archivo del bloc de notas con el nombre que quieras,
pero con extensión vbs. Doble click sobre el archivo para abrir la
bandeja:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 2 to colCDROMs.Count - 2
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-


Y para la segunda:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then


For i = colCDROMs.Count - 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom

End If
-

Gabi wrote:

Dos unidades, una lectora de cdrom normal asignada como R: y un grabador
de
dvd asignada como W:
"José Gallardo" escribió en el mensaje
news:OoXMLxl$

¿Cuántas bandejas tienes y cuál quieres abrir?

Gabi wrote:

¿como se puede generar un icono para abrir la bandeja de CDRom desde él?

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/

¿Problemas con Windows Update?
http://www.fermu.com/content/section/5/37/lang,es/
Windows Update Issues?
http://www.fermu.com/content/section/5/37/lang,us/