Ms-Dos - Mover PNG a carpeta con mismo nombre

Hola buenas noches, vengo a ver si me pueden ayudar ya que tengo imagenes PNG con el nombre de misma carpeta, solo quiero que cada imagen se vaya a la carpeta de mismo nombre, no todas las imagenes a una carpeta si no que img a carpeta con mismo nombre, he intentado

@echo off
set Dir_Orig=C:\Users\Shaw\Desktop\Mapas\52\1
set Dir_Dest=C:\Users\Shaw\Desktop\Mapas\52\1\carpeta

set Home=%CD%
cd %Dir_Orig%
for %%a in (*.png) do call :Mover "%%~na" "%%a"
cd %Home%
goto :EOF

:Mover
SET File=%1
SET File=%File:~1,-1%
SET Direc=%File:~0,2%
if not exist %Dir_Dest%\%Direc%\nul MD %Dir_Dest%\%Direc%\nul
move %2 %Dir_Dest%\%Direc%\.


goto :EOF

Pero al momento de ejecutar mueve las imegenes pero desaparecen y justo en la carpeta destino se crea un archivo llamado "ra" pero las imagenes no existen

Este es el código:


En la fila 15 el SET asigna a File el valor "radar00" con las comillas.
En la fila 16 el SET asigna a File el valor radar00 SIN las comillas.
En la fila 17 el SET asigna a File el valor ra, los dos primeros caracteres del nombre.

Lo que entiendo que deseas es eliminar los dos últimos caracteres del nombre. Es decir:
- si el nombre es radar12 de como resultado radar
- si el nombre es semaforo34 de como resultado semaforo

La instrucción correcta es:

Ver ejemplo:




Saludos.
\\//_