Ms-Dos - ELIMINAR ULTIMO CARACTER DEL NOMBRE DE UN ARCHIVO

@echo off

for %%a in (*.pdf) do call :Quitar "%%~na" %%~xa

goto :EOF

:Quitar

   set Orig=%1

   set Ext=%2

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

   set Dest=%Orig:~0,-1%

   if exist %Dest%%Ext% (

      echo NO se puede renombrar el fichero %Orig%%Ext%, existe un fichero: %Dest%%Ext%

   ) else (

      ren "%Orig%%Ext%" "%Dest%%Ext%"

   )

   goto :EOF