Perl can launch xcopy using system.

You will have to copy + delete anyways, so you can also use File::Copy and File::Path to delete the directories afterwards. Although when deleting things, I hope you have good and tested backups.