Thank you for sharing this approach!

>DECLARE INTEGER GetLastError IN kernel32
>
>DECLARE INTEGER MoveFile IN kernel32;
> STRING lpExistingFileName, STRING lpNewFileName
>
>IF MoveFile('d:\mydir', 'd:\yourdir') = 0
>* 2 = ERROR_FILE_NOT_FOUND
>* other errors are possible
> ? 'Error code:', GetLastError()
>ELSE
>* renamed successfully
>ENDIF