FoxPro/Visual FoxPro - Que hago mal porque este error

Hola tengo el siguiente codigo para copiar carpetas:

origen_ruta=sys(5)+ sys(2003)+ "\data\"
Anombre=DTOS(_diarydate)
destino_ruta=sys(5)+ "\respaldo\&Anombre\"
md &destino_ruta
lcorigen=alltrim(origen_ruta)
lcdestino=alltrim(destino_ruta)
lcDirOriginal=substr(lcorigen,1,ratc("\",lcOrigen)-1)
lcDirCopia=substr(lcDestino,1,ratc("\",lcDestino)-1)
OFSO=createobject('Scripting.filesystemobject')
OFSO.copyfolder(lcDirOriginal,lcDirCopia)
Release OFSO

Cuando lo hago en tiempo de diseño si me crea la carpeta, pero cuando lo paso al exe y lo ejecuto me aparece el siguiente error:

Codigo de error OLE 0x800a0046:Codigo de estado de COM desconocido error 1426

A que se debera este error.

La otra cuestion, es hacerlo de otra forma. me refiero a que de otra forma podria copiar carpetas.

Muchas gracias por su ayuda

Sr. Apache:
En una aplicación he realizado lo mismo únicamente utilizando ADIR() para determinar los archivos existentes en la carpeta origen. Luego recorro el arreglo que retorna la función para copiar de forma controlada a la carpeta destino con la función "copy file".

Saludos, desde El Salvador.