>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 trevisolWhat are you trying to do? Copy a file?
oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile("c:\temp\test.txt", "m:\test1.tst")
or
oShell = CreateObject("Shell.Application")
oFolder = oShell.NameSpace(DIRTRANSF)
FOLDERSOURCE = DEDE + "*.*"
oFolder.CopyHere(FOLDERSOURCE)