@echo off
setlocal
for /f "tokens=1-3 delims=/ " %%a in ('date /t')  do (set currday=%%a) && (set currmonth=%%b) && (set curryear=%%c)
set /a currweek=(%currday%/7)+1
set currdate=%curryear%-%currmonth%_Week_%currweek%
md D:\BACKUP\%currdate%
move D:\BACKUP\*.tar.gz D:\BACKUP\%currdate%
set /a oldmonth=%currmonth%-3
if %oldmonth%<10 do set oldmonth=0%oldmonth%
echo D:\BACKUP\%curryear%-%oldmonth%_Week_%currweek%
endlocal