D:
FOR %%A IN (%Date%) DO SET Today=%%A 

FOR /F "tokens=1-3 delims=/-" %%A IN ('ECHO.%Today%') DO (
    SET SortDate=%%C%%B%%A
) 

SET BackupDir=%SortDate%
MD "%BackupDir%"
rem cd "%BackupDir%"

xcopy "C:\Users\BodyMaster\OneDrive\Documents\*.xls" "%BackupDir%" /c /e /f /h /y



REM Daily incremetal xls & xlsx backup has completed
pause