Имя папки с названием месяца вчерашнего дня

@Echo Off
 
Call :GetVar Year
Call :GetVar Month
CHCP 1251 > nul
For /F "Tokens=%$Month%" %%i In ("Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь") Do Set $MonthName=%%i
CHCP 866 > nul
 
MD D:\Backup\%$Year%\%$MonthName%
::Команда архивировать данные в нужный мне каталог
DBackUpM.exe y -Cd:\backup\%$Year%\%$MonthName%
 
:GetVar
For /F "Skip=1" %%i In ('WMIC Path Win32_LocalTime Get %1') Do Set $%1=%%i
GoTo :EOF

@echo off
 
if %date:~,2%==01 (call :FromNow -1) else (call :FromNow)
chcp 1251 > nul
for /f "tokens=%mm%" %%i in ("Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь") do set month=%%i
chcp 866 > nul
 
md d:\Backup\%year%\%month%
 
:FromNow
setLocal
set now=%date%
set /a yyyy=%now:~-4%
set /a mm=1%now:~3,2%-100
set /a dd=1%now:~,2%-100
set /a JD=%~1+dd-32075+1461*(yyyy+4800+(mm-14)/12)/4+367*(mm-2-(mm-14)/12*12)/12-3*((yyyy+4900+(mm-14)/12)/100)/4
set /a L=JD+68569,N=4*L/146097,L=L-(146097*N+3)/4,I=4000*(L+1)/1461001
set /a L=L-1461*I/4+31,J=80*L/2447,K=L-2447*J/80,L=J/11
set /a J=J+2-12*L,I=100*(N-49)+I+L
set /a yyyy=I,mm=100+J,dd=100+K
endLocal&set year=%yyyy%&set mm=%mm:~-2%&set day=%dd:~-2%