Crear cuenta
echo off
for %%a in (The*.*) do call :Rename "%%~na" "%%~xa" "%%~za"
goto :EOF:Renameset Nomb=%1
set Exte=%2
set Size=%3
set tipo=Byset Nomb=%Nomb:~1,-1%
set Exte=%Exte:~1,-1%
set Size=%Size:~1,-1%
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=KB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=MB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=GB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=TB
echo Size: %3
echo Orig: "%Nomb%%Exte%"
echo Desp: "%Nomb%-%Size%%Tipo%%Exte%"
echo. goto :EOFecho off
for %%a in (The*.*) do call :Rename "%%~na" "%%~xa" "%%~za"
goto :EOF:Renameset Nomb=%1
set Exte=%2
set Size=%3
set tipo=Byset Nomb=%Nomb:~1,-1%
set Exte=%Exte:~1,-1%
set Size=%Size:~1,-1%
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=KB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=MB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=GB
if %Size% GTR 1024 set /a Size=%Size%/1024 && set Tipo=TB
name "%Nomb%%Exte%" "%Nomb%-%Size%%Tipo%%Exte%"
goto :EOFname"%Nomb%%Exte%" "%Nomb%-%Size%%Tipo%%Exte%"
rename "%Nomb%%Exte%" "%Nomb%-%Size%%Tipo%%Exte%"
ren "%Nomb%%Exte%" "%Nomb%-%Size%%Tipo%%Exte%"
for /D %%a in (The*.*) do call :Rename "%%~na" "%%~xa" "%%~za"