Распределение файлов из папки по части имени файла в папки, содержащие файлы с похожим именем (квитовка)

                                   :
                                  :*:
                                   :
                                  :::
                                 :":":
                                :":::":
                               @echo off
                             :":::::::::":
                            :":::::::::::":
                           :":::::::::::::":
                         :"::::::::::::::::":
                        :"::::::::::::::::::":
                       :"::::::::::::::::::::":
                      set "destination=K:\365P\*"
                    set "source=K:\365P\notdefined"
                   :::::::::::::::::::::::::::::::::
                  2>nul cmd/v/c for /f delims^^= %%i^
                 in ('dir/a-d/b/s "%destination%"^^^|^
                findstr/ilvc:"%source%\\"') do @set x=^
               %%~ni^& move /y "%source%\*!x:~-6!%%~xi"^
                                "%%~dpi"
                                 ::::::
                                 exit/b
                                 ::::::

@ECHO off
setlocal enabledelayedexpansion
CHCP 1251
CLS
 
set "destination=K:\365P-test\*"
set "source=K:\notdefined"
 
 
PAUSE
:::::::::::::::::::::::::::::::::
    2>nul cmd /v/c for /f delims^^= %%i in ('dir /a-d /b /s "%destination%" | findstr /ilvc:"%source%"') do @set x=%%~ni move /y "%source%\*!x:~-6!%%~xi" "%%~dpi"
    PAUSE
exit/b

@echo off
setlocal enabledelayedexpansion;
set "A=K:\365P\notdefined"
set "B=K:\365P"
 
rem перебираем все файлы с расширением *.txt в каталоге A и всех его подкаталогах
for /R %B% %%I in (*.txt) do (
    rem извлекаем имя файла
    set f=%%~nI
    rem копируем из A в B соответствующий файл
    copy %A%kwtf*!f:~-6!.txt %%~dpI
)