Mover arquivos do local da área de trabalho para outro local com arquivo em lotes?

Question

Estou tentando isso:

@echo off

mkdir "%USERPROFILE%\My Documents\%date%"
copy "%USERPROFILE%\Desktop\" "%USERPROFILE%\My Documents\%date%"
pause >nul

Copia apenas atalhos sem pastas

Alguém pode ajudar?