Hola a todos

En una funcion tengo el siguiente código para comprimir un directorio
entero:

----------------------------------------------
Function comprimir_zip
lparameters cFileName, cDirectorio
local oShell, oFolder

oShell = CREATEOBJECT("Shell.Application")
oFolder = oShell.NameSpace(cFileName)
oFolder.CopyHere(cDirectorio)

return .t.
-------------------------------------

pues bien, al ejecutar no funciona porque oFolder es Null;
sin embargo, desde la ventana de comandos de VFP9 sí funciona. ¿alguien sabe
por qué?

P.D.: He comprobado variables, he utilizado el debugger, y no sé por qué no
funciona.

Gracias por cualquier sugerencia

--
Carlos Sancho
APLICONTA
carlos***informatica-apliges.com
www.informatica-apliges.com