:Compress
for /d %%d in (%1.\*.*) do "%ProgramFiles%.\WinRAR\rar" a -r -m0 -inul %1.\"%%~nxd.rar" "%%~nxd"
for %%f in (%1.\*.*) do "%ProgramFiles%.\WinRAR\rar" a -r -m0 -inul %1.\"%%~nf.rar" "%%~nxf"
del AutoBAK.rar
MD D:\Bakup\BakUP%date:~0,10%
move *.rar D:\Bakup\BakUP%date:~0,10%