Asistente de grabación de CD

Con tu permiso he hecho una pequeña modificación para que abra directamente el asistente de grabación. También he modificado una cosilla para que la ventana del asistente no "pierda el foco" hasta que finalice la grabación:

Option Explicit

Dim MyCDRW, MySource, MyCDNAME, MyDateCode, MyTarget

Dim oShell, oApp, oFolder, vbShort

MyCDRW = "E:\"
MySource = "D:\Documents and Settings\Fermu\My Documents" 'Folder name only
MyCDName = "MyDocs"

Set oShell = WScript.CreateObject("WScript.Shell")
Set oApp = CreateObject("Shell.Application")
MyTarget =oShell.regread "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders\CD Burning")

Set oFolder = oApp.Namespace(MySource)

oApp.Namespace(MyTarget).CopyHere oFolder.Items

oApp.NameSpace(&H11).ParseName(MyCDRW).InvokeVerbEx "Grabar estos arc&hivos en un CD"

oShell.appactivate("Asistente para grabación de CD")
do until not oShell.appactivate("Asistente para grabación de CD")

wscript.sleep 500

Loop

Si se "juega" con el método SendKeys tal y como comento en el artículo "Accesos directos a prácticamente todo Windows", disponible en http://www.fermu.com, se podría hasta automatizar el asistente de grabación.

Un saludo,
Daniel Martín
Correo electrónico:


"fermu [MVP Windows]" schrieb im Newsbeitrag news:

Hash: SHA1

Daniel Martín wrote:

Esto sería válido para un XP en inglés, pero para que funcione en un XP en español habría que sustituir "CD Writing Wizard" por su cadena homóloga en español: "Asistente para grabación de CD".

Gracias por la aclaración, Dani... el xp en el que lo he probado está en
ingles...



Saludos
MS MVP Windows - Shell/User
Fermu's Website - http://www.fermu.com
Fermu's Forum - http://fermu.notlong.com/

Hash: SHA1

Daniel Martín wrote:

Con tu permiso he hecho una pequeña modificación para que abra directamente el asistente de grabación. También he modificado una cosilla para que la ventana del asistente no "pierda el foco" hasta que finalice la grabación:

guau! genial dani! gracias! :-)

Hello Fermu;

Windows Explorer pro­vides an interface to my CD-R/RW drive that lets me
drag files to that drive in Explorer. But often I drag, 1 drop—and nothing
happens. Rather than actually writing the files to the recordable CD, Windows
merely queues them in a folder (using up hard disk space in the process}
until I'm ready to write and dose the CD.

THE FIX: First make sure you installed the packet-writing driver that came
with your drive or PC (Roxio Easy CD Creator and Nero Burning ROM supply
their own packet-writing drivers) by looking in the program's Start menu
folder for a short­cut (for example, Roxio's is called Drag-to-Disc).

Even if you have this driver in­stalled, however. Windows may still queue
the files for later writing.

The solu­tion is utterly counterintuitive. Right-click the CD writer in
Explorer, choose Properties, select the Recording tab, and uncheck (that's
right, disable) Enable CD recording on this drive.

From now on, when you drag files and folders and drop them on the recordable
drive's icon, the burner will write them to the disc imme­diately, using the
packet-writing driver.

Espero que te sirva, dejame saber los resultados.

Angel

Muchas gracias por vuestras aportaciones.
La verdad es que me pareció un tanto singular la manera que tiene XP de
grabar los CDR en dos pasos (en el segundo me perdía), aunque las
grabaciones que he conseguido hacer han sido buenas y compatibles con discos
anteriores de Nero. Pero por ejemplo, como decía, no "borra" o desactiva
archivos que se puedan haber introducido por equivocación (o al menos no he
dado con el procedimiento).
La aportación de Engel me permitiría desactivar la grabación de XP para
instalar los drivers de Nero que venían con mi grabadora (v. 6.6).
De momento antes de instalar programas externos intentaré familiarizarme con
la grabadora de XP y luego decidiré lo que hago siguiendo vuestros consejos.

Saludos al grupo.


"J. Enrique Alcaraz" escribió
en el mensaje news:

Hola:

A la hora de copiar archivos para grabarlos en un CD con Windows XP (con
el menú emergente "enviar a") luego me aparece un mensaje de que hay
archivos pendientes para grabar en CD

Hash: SHA1

El script totalmente automatizado lo tienes disponible en este link, el
mismo automatiza totalmente las tareas de grabación, por lo que puede
combinarse por ejemplo con NTBACKUP, para volcar los archivos a un CD, e
inclusive permite ser ejecutado a una determinada hora del día sin
participación del usuario.

**/Cómo automatizar el Asistente para grabación de CD en winxp
http://www.fermu.com/content/view/262/2/lang,es/
Saludos / Fernando M.
MS MVP Windows - Shell/User
Fermu's Website - http://www.fermu.com
Fermu's Forum - http://fermu.notlong.com