>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")

Try this:
OSHELL = CREATEOBJECT("SHELL.APPLICATION")
OFOLDER = OSHELL.NAMESPACE(DIRTRANSF)
FOLDERSOURCE = DEDE + "*.*"
OFOLDER.COPYHERE(FOLDERSOURCE)