Копирование файлов по списку в текстовом файле в папки с именами, соответствующими расширениям этих файлов

@echo off
SetLocal EnableDelayedExpansion
:: Сборище файлов в папках и без
set "in=%Userprofile%\Desktop\papka"
for /r "%in%" %%i in (*) do (
 set "ras=%%~xi"
 set "ras=!ras:~1!"
 for /f "delims=" %%a in ('dir /a-d /b /s "%in%\*.*"') do (
  set "nf=%%~a"
  if not exist "sort\!ras!" md "sort\!ras!"
  if "%%~xi"=="%%~xa" copy "!nf!" "sort\!ras!"
))
exit /b

@Echo Off
cls
SetLocal EnableExtensions
 set fileslist=%1
 set inputdir=%2
 set outputdir=%3
if not exist %outputdir% md %outputdir%
if not exist %fileslist% echo Failed. File doesn't exist.
if not exist %inputdir% echo Failed. Incorrect path to the files.
if not exist %outputdir%\No-Ext md %outputdir%\No-Ext
FOR /f "usebackq delims=" %%i In ("%fileslist%") Do (
    if "%%~xi"=="" (copy "%%~i" "%outputdir%\No-Ext") else (2>NUL md "%outputdir%\%%~xi" & copy "%%~i" "%outputdir%\%%~xi")
)

@echo off
::файл со списком в строке имя.расширение
set "file=%Userprofile%\Desktop\fail.txt" 
for /f "tokens=2 delims=." %%i in ('type "%file%"') do (
 for /f "delims=" %%j in ('dir /a-d /b /s ".\*.*"') do (
  if not exist "sort\%%~i" md "sort\%%~i"
  if ".%%~i"=="%%~xj" copy "%%~j" "sort\%%~i"
))
pause

if "%inputdir%\%%~xi"=="" (copy "%inputdir%\%%~i" "%outputdir%\No-Ext\*.*") else (2>NUL md "%outputdir%\%%~xi" & copy "%inputdir%\%%~i" "%outputdir%\%%~xi\*.*")