Ms-Dos - Mover archivos a carpetas con mismo nombre

@echo off

set Direc_Origen=C:\Download\VARIOS

set Direc_Destino=C:\Download\VARIOS\ZZZ

cd "%Direc_Origen%"

for %%a in (*.PDF) do call :Copiar "%%a" "%%~na"

Pause

goto :EOF

:Copiar

    set Archivo=%1

    set Directorio=%2

    set Archivo=%Archivo:~1,-1%

    set Directorio=%Directorio:~1,-1%

    MD "%Direc_Destino%\%Directorio%" 2>nul

    move "%Archivo%" "%Direc_Destino%\%Directorio%\%Archivo%"

    goto :EOF

@echo off

set Raiz=C:Users\heber\OneDrive\Documentos\Arrigoni

set Direc_Origen=%Raiz%\Mayo

set Direc_Destino=%Raiz%\hebert\CONTRATOS\pdf div2\Contratos centro de costo 302-304\05_CONTRATOS MAYO\08-10

cd "%Direc_Origen%"

for %%a in (*.PDF) do call :Copiar "%%a" "%%~na"

Pause

goto :EOF

:Copiar

    set Archivo=%1

    set Directorio=%2

    set Archivo=%Archivo:~1,-1%

    set Directorio=%Directorio:~1,-1%

    MD "%Direc_Destino%\%Directorio%" 2>nul

    move "%Archivo%" "%Direc_Destino%\%Directorio%\%Archivo%"

    goto :EOF