@echo off &setlocal enableextensions
rem   Параметры: "%WL" "Cover\" *.jpg

if "%~3"=="" (
echo Use: %~n0 dirs.list "New Folder\" *.ext
pause >nul &goto :eof)

for /f "delims=" %%d in ('type "%~1"') do (
if not exist "%%d\%~2" md "%%d\%~2"
move /y "%%d\%~3" "%%d\%~2")

'============================ VBS ============================
' Создание отсутствующих подкаталогов с заданным именем внутри
' выбранных папок с перемещением в них файлов в заданной маске
' Параметры: %WL <имя подкаталога> <маска>
' Пример:    %WL Images *.gif;*.jpg;*.jpeg;*.png;*.tif;*.tiff
'=============================================================
Option Explicit: Dim List, Name, Mask, Shell, Fd, Items, FN
With WSH.Arguments
  If .Count = 0 Then WSH.Quit
  List = .Item(0) : Name = .Item(1) : Mask = .Item(2)
End With : Set Shell = CreateObject("Shell.Application")
Set List = CreateObject("Scripting.FileSystemObject").OpenTextFile(List,,,-1)
Do: Fd = List.ReadLine
  If Right(Fd, 1) = "\" Then
    Set Items = Shell.NameSpace(Fd).Items
    Items.Filter 8256, Mask
    If Items.Count > 0 Then
      FN = Fd & Name : Shell.NameSpace(Left(Fd, 3)).NewFolder Mid(FN, 4)
      Shell.NameSpace(FN).MoveHere Items, 5652
    End If
  End If
Loop Until List.AtEndOfStream : List.Close
Set List = Nothing : Set Shell = Nothing