Ms-Dos - Modificar o quitar primeros 5 caracteres de varios archivos

:: Bat que borra 4 ultimos caracteres de los nombres de varios archivos aceptando archivos que incluyan nombres con espacios.

:: Ubicar este bat en la misma carpeta de los archivos a renombrar.

@echo off

set ext=xls

rem ext es la extension de los archivos sin anteponer punto.

set sacar=4

rem sacar es la cantidad de letras al final del nombre que quieres sacar.

for /f "tokens=*" %%f in ('dir /b /a *.%ext%') do call :lab %%f

exit

:lab

set original=

set original=%*

set newname=

call set newname=%%original:.%ext%=%%

call set newname=%%newname:~0,-%sacar%%%.%ext%

if "%newname%"==".%ext%" (goto :eof)

ren "%original%" "%newname%"

goto :eof

@echo off

set ext=mp3

for /f "tokens=*" %%f in ('dir /b /a *.%Ext%') do call :lab %%f

goto :EOF

:lab

   set original=%*

   set newname=%original:~5%

   ren "%original%" "%newname%"

   goto :eof

@echo off

set ext=xlsm

rem ext es la extension de los archivos sin anteponer punto.

set sacar=5

rem sacar es la cantidad de letras al final del nombre que quieres sacar.

for /f "tokens=*" %%f in ('dir /b /a *.%ext%') do call :lab %%f

:lab

echo %%f

set original=

set original=%*

set newname=

call set newname=%%original:.%ext%=%%

call set newname=%%newname:~0,-%sacar%%% %date:~6,4%.%ext%

if "%newname%"==".%ext%" (goto :eof)

ren "%original%" "%newname%"

C:\Tmp>set File=grid_view_consulta_pedidos_Formulas_V2

C:\Tmp>echo %File%

grid_view_consulta_pedidos_Formulas_V2

C:\Tmp>set nom=%File:~0,-5%

C:\Tmp>echo %nom%

grid_view_consulta_pedidos_Formul

@echo off

set ext=txt

for /f "tokens=*" %%f in ('dir *.%Ext% /b /a') do call :Lab %%~nf

goto :EOF

:Lab

   set Original=%*

   set NewName=%Original:~0,-5%

   ren "%Original%.%Ext%" "%NewName%.%Ext%"

   goto :EOF

@echo off

set ext=txt

for /f "tokens=*" %%f in ('dir *.%Ext% /b /a') do call :Lab %%~nf

goto :EOF

:Lab

   set Original=%*

   set NewName=%Original:~5,-99%

   ren "%Original%.%Ext%" "%NewName%.%Ext%"

   goto :EOF