Gekürzte Dateinamen in Variablen und daraus Auswahlmenü (Abfrage) erzeugen?

@echo Off

REM EINSTELLUNGEN ANFANG

REM Charakter-Name
set CHARNAME=Andredatus

REM Diablo Save-Verzeichnis eintragen (Das Verzeichnis wo Diablo die Chars speichert
set DIRDIABLO=D:\Saved Games\Diablo II

REM Backup Zielverzeichnis eintragen (Locales Backup-Verzeichnis auf Rechner)
set DIRBACKUPLOC=D:\Diablo\CharBackup

REM Backup Zielverzeichnis eintragen (Backup Verzeichnis auf dem Server)
set DIRBACKUPLAN=\\192.168.169.10\Diablo II\CharBackup

REM Pfad zu robocopy
set DIRROBOCOPY=\\192.168.169.10\Diablo II\Software\Robocopy

REM Windows\System32 Verzeichnis für Robocopy
set DIRWINROBO=C:\Windows\System32

REM Installations-Pfad für robocopy
set DIRINSTALLROBO=C:\Programme (noInstall)\robocopy

REM EINSTELLUNGEN ENDE


REM Playernamen setzen
set u=%USERNAME%
if "finn"=="%u%" set PLAYER=Finn  
if "dirk"=="%u%" set PLAYER=Dirk  
if "dani"=="%u%" set PLAYER=Dani  
if "nils"=="%u%" set PLAYER=Nils  
if "jerry"=="%u%" set PLAYER=Jerry  

REM Datum abrufen
set d=%date%
set DAT_YY=%d:~6,4%
set DAT_MM=%d:~3,2%
set DAT_DD=%d:~0,2%
set DATUM=%DAT_YY%%DAT_MM%%DAT_DD%

REM Zeit abrufen
set t=%time%
set ZEIT_HH=%t:~0,2%
if %ZEIT_HH% lss 10 (set ZEIT_HH=0%time:~1,1%)
set ZEIT_MM=%t:~3,2%
set ZEIT_SS=%t:~6,2%
set ZEIT=%ZEIT_HH%%ZEIT_MM%%ZEIT_SS%

REM Eingabe einer Besonderheit des Charakters
cls
echo.
echo.
echo.
echo    Hier kannst du einen Hinweis zu deinem Charakter
echo.   eingeben. Zum Beispiel den Grund dieser Sicherung.
echo    
echo       Beispiele:      Level XY
echo                       Fähigkeiternupdate
echo                       Sockelgeschenk
echo                       Inventarumstellung
echo                       usw...
echo.
echo    Dieser Text wird dem Ordnernamen hinzugefuegt und hilft
echo    spaeter beim Wiederfinden bestimmter Backups des Chars...
echo.
echo    Ist nicht zwingend erforderlich
echo.
echo.
set EINGABE=
set /p EINGABE=   Deine Eingabe:     
echo.
cls

REM Ordnernamen und Pfade generieren
if defined EINGABE (
	set	"ORDNERNAME=%DATUM%-%ZEIT%-%CHARNAME%-%EINGABE%"  
) else (
	set	"ORDNERNAME=%DATUM%-%ZEIT%-%CHARNAME%"  
)
set "COPYPFADLOC=%DIRBACKUPLOC%\%DAT_YY%\%DAT_MM%\%ORDNERNAME%"  
cd %DIRDIABLO%
mkdir "%COPYPFADLOC%"  

REM Dateien in Verzeichnisse kopieren
FOR %%f IN ("%DIRDIABLO%\%CHARNAME%.*") DO COPY "%%f" "%COPYPFADLOC%"  

REM Verfügbarkeit Diablo-Server abfragen
if exist "%DIRBACKUPLAN%" (  
	goto ROBOCOPY
) else (
	goto END
)

:ROBOCOPY
REM Robocopy kopieren und Path setzen.
if not exist "%DIRWINROBO%\robocopy.exe" (  
	if not exist "%DIRINSTALLROBO%\robocopy.exe" (  
		mkdir "%DIRINSTALLROBO%"  
		copy "%DIRROBOCOPY%\robocopy.exe" "%DIRINSTALLROBO%"  
		path "%DIRINSTALLROBO%"  
	) else ( 
		echo Robocopy ist in "%DIRINSTALLROBO%" vorhanden!  
	)
) else ( 
	path "%DIRWINROBO%"  
	echo Robocopy ist in "%DIRWINROBO%" vorhanden!  
)

REM Kopieren mit Robocopy auf Diablo-Server 
set "COPYPFADLAN=%DIRBACKUPLAN%\%PLAYER%"  
robocopy "%DIRBACKUPLOC%" "%COPYPFADLAN%" /E  
goto END

:END
exit