This little basta took a lot of time to get working properly. I doubt anyone will ever use it besides me, but posted to the UDFS. Enjoy.

RenameDesktopItem() -
http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=210378#Post210378