why the follow code does't work under windows xp?

OSHELL = CREATEOBJECT("SHELL.APPLICATION")
OFOLDER = OSHELL.NAMESPACE("&DIRTRANSF") DESTINO
FOLDERSOURCE = DEDE + "*.*" ORIGEM
OFOLDER.COPYHERE("&FOLDERSOURCE")

sergio trevisol