Проверка наличия файлов для каждого дня месяца и копирование недостающих

@echo off
SetLocal EnableDelayedExpansion
set "MM=%date:~3,2%"
set "kd=31"
set n=0
if %MM%==02 set "kd=28"
for %%a in (04 06 09 11) do if %MM%==%%~a set "kd=30"
for /f "usebackq delims=" %%B in ("%Userprofile%\Desktop\file.txt") do (
 for /f "tokens=1-4 delims=-" %%i in ('dir /a-d /b /s /o-n "%%~B"') do (
  set /a n+=1
  set "d=%%~k"
  set "ndf!n!=%%~i-%%~j-!d!-%%~l"
  call :zp "%%ndf!n!%%"
))
goto :eof
:zp
 for /l %%b in (1 1 %kd%) do (
  set "ns=%%~b"
  if !ns! leq 9 set "ns=0!ns!"
  if not exist "%%~i-%%~j-!ns!-%%~l" copy "%~1" "%%~i-%%~j-!ns!-%%~l"
)
pause>nul

@echo on
SetLocal EnableDelayedExpansion
set n=0
for /f "usebackq delims=" %%a in ("%Userprofile%\Desktop\file.txt") do (
 for /f "tokens=1-4 delims=-" %%i in ('dir /a-d /b /s /o-n "%%~a"') do (
  set /a n+=1
  set "ndf!n!=%%~i-%%~j-%%~k-%%~l"
  call :zp "%%ndf!n!%%"
))
goto :eof
:zp
 for /l %%b in (1 1 %date:~0,2%) do (
  set "ns=%%~b"
  if !ns! leq 9 set "ns=0!ns!"
  if not exist "%%~i-%%~j-!ns!-%%~l" copy "%~1" "%%~i-%%~j-!ns!-%%~l"
)
pause>nul

set rotate=%~dp0Rotate.bat
echo "%cd%">"%in%"
 
call %rotate%>nul