Dateinamen einlesen, auftrennen, umsortieren ... Datei umbenennen

@echo off

echo __________________________________________
echo __________///  Umbenennen \\\_____________
echo __________________________________________

set "MaskRename=*00??.*"  

:1
for /f {{comment_strings:2259219272}} %%i in ({{comment_strings:62782860186}}) do set {{comment_strings:53747469081}} & call :2 {{comment_strings:31765236541}} 

echo __________________________________________    
echo Umbenennen beendet.   
echo __________________________________________    
goto :3


:2
set name=%name:_occlusion=-occlusion%
ren %1 {{comment_strings:3488466083}}  
echo %1 "%Name:~-2%-%Name:~,-4%%~x1"  
goto :1

:3

echo __________________________________________
echo ___________///  Sortieren \\\_____________
echo __________________________________________

set "MaskSort=??-*.*"  

:5
for /F {{comment_strings:54067439443}} %%i in ({{comment_strings:3368854158}}) do set {{comment_strings:53368076790}} & call :4 {{comment_strings:12936351304}} 

goto :6

:4
    if exist {{comment_strings:3598924250}} ( 
        move {{comment_strings:12102972674}} "%Name1:~3%\" 2>NUL  
	rem goto :5 
    ) ELSE (
        echo __________________________________________    
        echo              Erstelle Ordner   : %Name1:~3%   
        echo __________________________________________        

        md {{comment_strings:1127326418}} 2>NUL 
        move "%name1%%~x1" "%Name1:~3%\" 2>NUL  
	rem goto :5	
    )
goto :5

:6
echo __________________________________________    
echo Sortiervorgang beendet.    
echo __________________________________________  
goto :eof
pause

@echo off & setlocal & goto :Start

:umbenennen
  set name=%name:_occlusion=-occlusion%
  ren %1 "%Name:~-2%-%Name:~,-4%%~x1"   
  echo %1 "%Name:~-2%-%Name:~,-4%%~x1"  
  goto :eof

:sortieren
  if not exist "%Name1:~3%" (  
    echo    Erstelle Ordner   : %Name1:~3%   
    md "%Name1:~3%"  
  )
  move "%name1%%~x1" "%Name1:~3%\"  
  goto :eof

:checken
  if exist "%Name2:~,-10%" (  
    echo    gecheckt: %Name2:~,-10%
  ) ELSE (
    echo ...
    echo !!! In der Benennung von "%Name2:~,-10%" und dem Pass ist ein Fehler !!!  
    echo ...)
  goto :eof


:Start
  echo __________///  Umbenennen \\\_____________
  echo ==========================================

  set "MaskRename=*00??.*"  
  for /f "delims=" %%i in ('dir /b %MaskRename%') do set "Name=%%~ni" & call :umbenennen "%%i"  

  echo __________________________________________    
  echo :::::   Umbenennen beendet.   
  echo\
  echo\
  echo ___________///  Sortieren \\\_____________
  echo ==========================================

  set "MaskSort=??-*.*"  
  for /F "delims=" %%i in ('dir/b %MaskSort%') do set "Name1=%%~ni" & call :sortieren "%%i"  

  echo __________________________________________  
  echo :::::   Sortieren beendet.    
  echo\
  echo\
  echo ___________///  Checken \\\_______________
  echo ==========================================

  set "MaskCheck=*-occlusion"  
  for /F "delims=" %%i in ('dir/b %MaskCheck%') do set "name2=%%i" & call :checken "%%i"  

  echo __________________________________________  
  echo :::::   Checken beendet.  
 
pause