Копирование последнего созданного файла в последнюю созданную папку

md D:\PAY01\1\B0001\%date:~6,4%-%date:~3,2%\%date:~6,4%-%date:~3,2%-%date:~0,2%
 
set dir1=D:\PAY01\1\
set dir2=C:\Converter\2\b\
::Баланс            
setlocal enabledelayedexpansion
set /a num=0
set /a err=0
for /f "tokens=* delims=" %%1 in ('dir /b /o:-d /t:W "%dir1%\B0001_*.*"') do (
set /a num+=1
if /i !num! leq 1 (
move "%dir1%\%%1" "%dir2%" > nul 
if errorlevel 1 (echo %%1 >> errorslog.txt
set /a err+=1
)
echo copy file...%%1) else (
echo skip file... %%1
)
)

@echo off
  setlocal
    set "from=D:\PAY01\1" % rem : откуда берется файл
    for /f "tokens=4" %%i in (
      'dir /tc "%from%" ^| sort'
    ) do set "last=%from%\%%i" % rem : последний созданный файл
    for /f "tokens=1,2,3 delims=." %%i in ("%date%") do (
      set "des=%from%\B0001\%%k\%%k-%%j\%%k-%%j-%%i"
    )
    md %des% % rem : создали папку
    for %%i in (%des%;C:\Converter\2\b) do copy "%last%" %%i>nul
  endlocal
exit /b

@echo off
Setlocal EnableDelayedExpansion
 
md "%userprofile%\desktop\%date%"
for /f "usebackq tokens=*" %%a in (`dir /o:-d /b "%userprofile%\desktop\1"`) do (
set /a c+=1
if "!c!"=="1" (xcopy "%userprofile%\desktop\1\%%a" "%userprofile%\desktop\%date%"&&move "%userprofile%\desktop\1\%%a" "%userprofile%\desktop\2\%%a" )
)
pause

@echo off
Setlocal EnableDelayedExpansion
 
for /f "usebackq tokens=1" %%a in (`dir /o:-d /b "%userprofile%\desktop\1"`) do (
set /a c+=1
if "!c!"=="1" (xcopy /i "%userprofile%\desktop\1\%%a" "%userprofile%\desktop\%date:~-4%\%date:~-7%\%date%\"&&move "%userprofile%\desktop\1\%%a" "%userprofile%\desktop\2\%%a")
)
pause

@echo off
md "D:\PAY01\1\B0001\%date:~6,4%\%date:~6,4%-%date:~3,2%\%date:~6,4%-%date:~3,2%-%date:~0,2%"
dir/a-d/b/o-d/tc "D:\PAY01\1"|(cmd/v/c "set/p x=&copy "D:\PAY01\1\!x!" "D:\PAY01\1\B0001\%date:~6,4%\%date:~6,4%-%date:~3,2%\%date:~6,4%-%date:~3,2%-%date:~0,2%\"&move "D:\PAY01\1\!x!" "C:\Converter\2\b\"")
exit

@echo off
 
set "src=D:\PAY01\1"
set "dest1=D:\PAY01\1\B0001"
set "dest2=C:\Converter\2\b"
 
dir/a-d/o-d/tc "%src%\"| findstr/bl %date%| (
cmd/v/c set/p x=^^^& if defined x (^
 set x=!x:~36!^^^&^
 xcopy/hkqry "%src%\!x!" "%dest1%\%date:~6,4%\%date:~6,4%-%date:~3,2%\%date:~6,4%-%date:~3,2%-%date:~0,2%\"^^^&^
 move/y "%src%\!x!" "%dest2%\"^
^ ^^^) else echo Нет сегодняшнего файла!
)
 
exit/b