CMD-Name mehrer Dateien kürzen

@echo off
setlocal enabledelayedexpansion
cls

rem alles was vor diesem letzten Trennzeichen steht wird entfernt
set delimiter=_
rem die Dateiendung der Dateien, die umbenannt/gekuerzt werden sollen
set extension=c

rem Dateinamen kuerzen
for /f "delims=" %%a in ('dir /b *.%extension%') do (
    set filename=%%a
    set fileext=%%~xa

    set newfilename=!filename!
    call :findlast
    
    rem zur Sicherheit erst mal nur Vorschau
    rem ohne das vorangestellte echo wird wirklich umbenannt
    echo ren "!filename!" "!newfilename!"
)

echo on
@goto :EOF


:findlast
for /f "tokens=1,* delims=%delimiter%" %%b in ("!newfilename!") do (
        echo %%b | find "!fileext!" >nul
        if !errorlevel!==0 (
            set newfilename=%%b
        ) else (
            set newfilename=%%c
            call :findlast
        )
    )

@goto :EOF