Ms-Dos - Renombrar archivos con BAT

@echo off

::Comprobamos si existe algun archivo "A_" y lo eliminamos...

if exist "A_" del "A_"&ECHO se ha eliminado el archivo A_

::Seccionamos la fecha para colocarla en formato ingles...

set dia=%date:~0,2%

set mes=%date:~3,2%

set anio=%date:~6,4%

::Restamos al dia un uno para obtener el dia anterior....

set /A restadia=(dia - 1)

::comprobamos si el valor de la resta es menor o igual al numero 9...

::Entonces le colocamos un 0 delante, ejemplo 01.02.03..,09

if %restadia% LEQ 9 set restadia=0%restadia%

::Unimos todos los datos en la variable renombrar.....

set renombrar=A_%anio%%mes%%restadia%

::Comprobamos si no existe el archivo con fecha de ayer para renombrar...

::si no existe le mandamos a la rutina error....

if not exist %renombrar% goto :error

echo Pulse tecla para renombrar el archivo: %renombrar% por nombre: A_

pause> nul

::renombramos el archivo con fecha anterior a la de hoy a "A_"...

ren "%renombrar%" "A_"

pause> nul

:error

cls

echo Archivo fecha DE HOY: A_%anio%%mes%%dia%

echo Archivo fecha anterior PARA RENOMBRAR: %renombrar%

echo.

echo.

echo Lo siento!! NO existe ningun archivo con fecha anterior a la de hoy

echo para renombrar...

echo.

echo.

pause

exit

@echo off

dir *.xls* /B >files.tmp

for /F "delims=-_. tokens=1-4" %%a in (files.tmp) do @echo ren  %%a?%%b?%%c.%%d  %%b.%%d

@echo off

dir *.xls* /B >files.tmp

for /F %%a in (files.tmp) do Call :Renombra %%a %%~xa

goto :EOF

:Renombra

   set File_Old=%1

   set Extensio=%2

   set File_New=%File_Old:~8,-14%

   echo ren  %File_Old%  %File_New%%Extensio%