>Thnx Borislav you saved my day. :)

Because some sysadmins uninstall Scripting on computers you could consider to use API functions instead of Scripting object:

#define CSIDL_DESKTOPDIRECTORY 0x0010
#define ERROR_SUCCESS          0x0000

DECLARE INTEGER  SHGetFolderPath IN shell32.dll INTEGER hwndOwner,;
                                                INTEGER nFolder,;
                                                INTEGER hToken,;
                                                INTEGER dwFlags,;
                                                STRING @pszPath
                                             
lcDeskTop       = SPACE(255)
IF SHGetFolderPath(0, CSIDL_DESKTOPDIRECTORY, 0, 0, @lcDeskTop) == ERROR_SUCCESS
   lcCurrentFolder = SYS(5)+CURDIR()
   cd (lcDeskTop)
   ? GETFILE()
   cd (lcCurrentFolder)
ENDIF