Why copy and delete when you can just move the file?
try something like this
select the files then run this function
Function MoveSelectedDesktopFiles
try something like this
select the files then run this function
Function MoveSelectedDesktopFiles