Grabar a un CD

[Manuel Valdenebro]

He encontrado un código de un script (Fernando Muñoz) que de manera sencilla, puede realizar una grabación de datos a un CD (por ejemplo, copia de seguridad). Como script externo funciona perfectamente, pero he pensado que quizás fuera posible traducirlo a lenguaje xHabour e incluirlo directamente en nuestros programas. A continuación copio el código por si alguien pudiera traducirlo a nuestro lenguaje:

--------------------------------------------------------------
Option Explicit

Dim MyCDRW, MySource, MyCDNAME, MyDateCode, MyTarget

Dim oShell, oApp, oFolder, vbShort

' Cambia estas tres variables acorde a las especificaciones de tu sistema

MyCDRW = "E:\"

MySource = "c:\FW23"

MyCDName = "MyDocs"

' A partir de aqui mejor no tocar nada


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"

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

wscript.sleep 500

Loop

MyDateCode = mid(formatDateTime(Date, vbshort),9,2) & _
mid(formatDateTime(Date, vbshort),4,2) & _
left(formatDateTime(Date,vbshort),2)

oShell.appactivate("Asistente para grabación de CD")
oShell.SendKeys MyCDName & " " & MyDateCode

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

oShell.SendKeys "{Enter}"

Do until Not oShell.appactivate("Asistente para grabación de CD")

wscript.sleep 500

Loop

Set oApp = Nothing

Set oFolder = Nothing

Set oShell = Nothing

-----------------------------------------------

Feliz año para todos

[Manuel Valdenebro]

Fernando,

La diferencia es que es un producto comercial y este código es abierto y
fácil de incluir en nuestras aplicaciones.