Formatear un CD con Visual Fox PRO 9

Hace tiempo te escribí una pregunta y tengo una duda con respecto de lo mismo, la verdad es que el tema no lo pude retomar sino hasta ahora que tengo encima la entrega :$ en fin... Mi problema es el siguiente:
Tengo código para quemar datos en un CD pero al darle copy file me dice: Cannot create file E:\_____(mi archivo)___.pdf
Para esto; E es mi unidad de cdRom...
Mi código es:
FUNCTION GrabarCD(MyCD,vaciar,cRuta)
 DECLARE INTEGER Sleep IN Win32API INTEGER
 ** Objecto APPLICATION
 sApp = CREATEOBJECT("Shell.Application")
 ** Objecto SHELL
 sh = CREATEOBJECT("WScript.Shell")
 sh.CurrentDirectory = cRuta
 ** Abrimos Mi PC
 ns = sApp.NameSpace(17)
 sApp.Open(17)
 Sleep(2800)
 ** Abrimos unidad de grabación
 np = ns.ParseName(MyCD)
 *--Copia los archivos necesarios
 private aArchivos, nArchivos
 nArchivos  = adir(aArchivos,cRuta+"*.*")
 for nI=1 to nArchivos
     copy file (cRuta+aArchivos[nI,1]) to &MyCD
 next
 release aArchivos
 ** Damos la orden de grabar el CD
 np.InvokeVerbEx("Grabar estos arc&hivos en un CD")
 np.InvokeVerb()
 ** Esperamos mientras se activa el asistente
 DO WHILE NOT sh.appactivate("Grabar un disco")
   * WAIT "" TIMEOUT 2
 ENDDO
 sh.appactivate("Asistente para grabación de CD")
 sh.SendKeys("Reportes")
 ** Iniciamos grabación
 sh.appactivate("Asistente para grabación de CD")
 sh.SendKeys("{Enter}")
 ** Esperamos mientras se cierra el asistente
 DO WHILE sh.appactivate("Asistente para grabación de CD")
   wait "" timeout 5
enddo
endfunc
Espero me puedas ayudar, muchas gracias...