Ms-Dos - renombrar archivos conservando los ultimos caracteres del nombre

@echo off

for %%a in (*.xml) do Call :Renombrar "%%a"

goto :EOF

:Renombrar

   set Name=%1

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

   set Short=%Name:~-36%

   echo.Nombre largo: %Name%

   echo.Nombre corto: %Short%

   echo.

   goto :EOF