letzte Buchstabe von Ordnernamen entfernen mit Skript

[Owen S. (senmeis)]

Servus,

mit dem folgenden Windows Skript will man die letzte Buchstabe von 
Ordnernamen entfernen. Problem: mehrere Buchstaben werden entfernt 
stattdessen. Woran liegt das?

@echo off
setlocal disabledelayedexpansion

for /d %%f in (*) do (
    set "foldername=%%f"
    set "basename=%%~nf"
    call :ProcessFile
)
echo Done!
pause
exit /b

:ProcessFile
set "newname=%basename:~0,-1%"
ren "%foldername%" "%newname%"
exit /b

[Heinz R. (heijz)]

zeig mal ein vorher-nachher-Beispiel solch eines Ordnernamens?

[T.M .. (max)]

@echo off
setlocal disabledelayedexpansion

:: Erst alle Namen in eine Temp-Datei sammeln
set "tmpfile=%TEMP%\folders.txt"
for /d %%f in (*) do echo %%f>>"%tmpfile%"

:: Dann aus der Datei lesen und umbenennen
for /f "usebackq delims=" %%f in ("%tmpfile%") do (
    set "foldername=%%f"
    set "basename=%%~nf"
    call :ProcessFile
)

del "%tmpfile%"
echo Done!
pause
exit /b

:ProcessFile
set "newname=%basename:~0,-1%"
ren "%foldername%" "%newname%"
exit /b

[Speedy G. (Firma: ACME) (speedy-g)]

@echo off
setlocal enabledelayedexpansion

:: Loop through every folder in the current directory
for /d %%f in (*) do (
    set "foldername=%%f"
    
    :: Slice the name: Start at index 0, stop 1 character from the end
    set "newname=!foldername:~0,-1!"

    :: Only rename if the new name isn't empty
    if not "!newname!"=="" (
        echo Renaming "%%f" -> "!newname!"
        ren "%%f" "!newname!"
    ) else (
        echo Skipping "%%f" (Name too short to trim)
    )
)

echo.
echo Process Complete!