#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