Batch - Ordnername umbenennen, Ordnergröße anhängen am Ende des Namens

@echo off & setlocal
set "Ordner=C:\TEST"  

set "Einh=B KB MB GB"  
pushd "%Ordner%"  
for /f "delims=" %%i in ('dir /b /ad') do call :ProcessFile "%%i"  
popd
pause
goto :eof

:ProcessFile
for /f "tokens=3" %%i in ('dir /s /w /-c %1^|findstr "Datei(en)"') do set "G=%%i"  
:: bei mehr als 9-stelliger Dateigröße Sonderbehandlung
if "%G:~9%" neq "" goto :GBorMore  
set /a D=0
set /a N=1
:Loop
if %G% lss 1000 goto :Done
set /a D=G %% 1000
set /a G=G/1000
set /a N+=1
goto :Loop

:GBorMore
:: zuerst die letzten 6 Stellen abschneiden,
set "G=%G:~0,-6%"  
:: dann die letzten 3 Stellen als Dezimalanteil behandeln und
set "D=%G:~-3%  
::  den Teil davor als ganzzahligen Anteil festlegen
set "G=%G:~0,-3%  
:: sowie die Einheit auf GB setzen
set E=4

:Done
for /f "tokens=%N%" %%i in ("%Einh%") do set "E=%%i"  
:: im neuen Namen nur die ersten beiden Stellen des Dezimalanteils verwenden
set "NameNeu=%~n1_%G%.%D:~0,2%%E%%~x1"  
echo ren %1 "%NameNeu%"  
goto :eof

@echo off & setlocal
set "Ordner=C:\TEST"  

pushd "%Ordner%"  
for /f "delims=" %%i in ('dir /b /ad') do call :ProcessFile "%%i"  
popd
pause
goto :eof

:ProcessFile
for /f "tokens=3-7 delims=. " %%a in ('dir /s /w %1^|findstr "Datei(en)"') do (  
    set "G=%%a"  
    set "D=%%b"  
    if "%%b"=="Bytes" (set "D=000" & set "E=B")  
    if "%%c"=="Bytes" set "E=KB"  
    if "%%d"=="Bytes" set "E=MB"  
    if "%%e"=="Bytes" set "E=GB"  
    if "%%f"=="Bytes" set "E=TB"  
)
:: im neuen Namen nur die ersten beiden Stellen des Dezimalanteils verwenden
set "NameNeu=%~n1_%G%.%D:~0,2%%E%%~x1"  
echo ren %1 "%NameNeu%"  
goto :eof