Filmesammlung benennen via batch datei

@echo off & setlocal

type >Dateinamen.txt
type >Dateipfade.txt
type >Kopieren.txt
cls

set "Pfad=C:\Test\"  

for /f "delims=" %%I in ('dir /a-s-h-d /b /s "%Pfad%*avi"') do echo %%~nI>>Dateinamen.txt  
for /f "delims=" %%I in ('dir /a-s-h-d /b /s "%Pfad%*avi"') do echo %%~fI>>Dateipfade.txt  

for /f "delims=" %%I in ("Dateinamen.txt") do mkdir %Pfad%%%I && timeout /t 1 /NOBREAK>NUL  

set "InFile1=Dateipfade.txt"  
set "InFile2=Dateinamen.txt"   
set "OutFile=Kopieren.txt"  

< "%InFile1%" >>"%OutFile%"	(  
				 for /f "usebackq delims=" %%a in ("%InFile2%") do (  
										    set /p "Line="   
										    setlocal enabledelayedexpansion 
										    echo\"!Line!" "!Pfad!%%a\"   
										    endlocal 
										    )
				 )

for /f "delims=" %%I in ("Kopieren.txt") do xcopy %%I /C /Y  

pause
if exist Dateinamen.txt del Dateinamen.txt
if exist Dateipfade.txt del Dateipfade.txt
if exist Kopieren.txt del Kopieren.txt
exit 0

set "Pfad=(HIER-DEN-PFAD-EINTRAGEN-VOM-ORDNER-GENERE)"  

set /p "Pfad=Bitte gib den Pfad des Ordners mit den .avi Datein mit einem \ am Ende an: "  

D:\Wie sieht denn der Dateiname - [Formatiert] xyz (aus).avi

D:\Filme\[Genre]\FILMDATEI - [Filmtitel]\[Filmtitel].avi
D:\Filme\[Genre]\COVER - [Filmtitel]\*.jpg
D:\Filme\[Genre]\INFO - [Filmtitel]\*.nfo

@echo off
if "%~1" equ "/?" echo Kopiert Avi und zugehörige nfo; txt; jpg; png; bmp &exit /b 0  
if not exist "%~1" echo Ordner nicht Gefunden. Ordner auf den Batch ziehen. &exit /b 2  
if not exist "%~1\*.avi" echo Keine AVI Gefunden. Ordner mit AVI auf den Batch ziehen. &exit /b 1  
setlocal
set "Ziel=D:\Filme\"  
set "Pics=jpg,png,bmp"  
set "Info=nfo,txt"  

for /r "%~1" %%i in (*.avi) do (  
  for /f "tokens=2*delims=:" %%a in (' findstr /i "\<genre\>" "%%~dpni.nfo" ') do (  
    for /f %%a in ("%%a") do (  
      xcopy "%%~i" "%Ziel%%%~a\FILMDATEI - [%%~ni]\[%%~ni]%%~xi"  
      for %%b in (%pics%) do for %%b in ("%%~dpni.%%b) do xcopy "%%~b" "%Ziel%%%~a\COVER - [%%~ni]\%%~nxb"  
      for %%b in (%info%) do for %%b in ("%%~dpni.%%b) do xcopy "%%~b" "%Ziel%%%~a\INFO - [%%~ni]\%%~nxb"  
) ) )

@echo off
setlocal

 rem Die Filme und der Rest müssen im Genre Ordner liegen
 rem zB. "D:\Filme\Genre\*.AVI" ...  

set "Ziel=D:\Filme\"  
set "Pics=jpg,png,bmp"  
set "Info=nfo,txt"  
set "VFilm=FILMDATEI - "  
set "VCover=COVER - "  
set "VInfo=INFO - "  


for /r "%Ziel%" %%i in ( *.avi ) do (  
  for /f "tokens=3,4delims=\" %%a in ( "%%~i" ) do if %%~xi equ %%~xb (  
    echo Genre Ordner: %%a
    if not exist "%Ziel%%%~a\%VFilm%%%~ni\" md "%Ziel%%%~a\%VFilm%%%~ni\"  
    move "%%~i" "%Ziel%%%~a\%VFilm%%%~ni\"  
    for %%b in (%pics%) do for %%b in ( "%%~dpni.%%b?" ) do (  
      if not exist "%Ziel%%%~a\%VCover%%%~ni\" md "%Ziel%%%~a\%VCover%%%~ni\"  
      move "%%~b" "%Ziel%%%~a\%VCover%%%~ni\"  
    )
    for %%b in (%info%) do for %%b in ( "%%~dpni.%%b?" ) do (  
      if not exist "%Ziel%%%~a\%VInfo%%%~ni\" md "%Ziel%%%~a\%VInfo%%%~ni"  
      move "%%~b" "%Ziel%%%~a\%VInfo%%%~ni\"  
    )
  ) else echo "%%i" --^> Schon sortiert? - oder ist im Falschen Verzeichnis.  
)
pause

@echo off & setlocal

type >Dateinamen.txt
type >Dateipfade.txt
type >Kopieren.txt
cls

set /p "Pfad=Bitte geben sie den Ordner in denen Sich die AVIs befinden mit einem \ am Ende an: "  

for /f "delims=" %%I in ('dir /a-s-h-d /b /s "%Pfad%*avi"') do echo %%~nI>>Dateinamen.txt  
for /f "delims=" %%I in ('dir /a-s-h-d /b /s "%Pfad%*avi"') do echo %%~fI>>Dateipfade.txt  

for /f "delims=" %%I in ('type "Dateinamen.txt"') do mkdir "%Pfad%%%I" && timeout /t 1 /NOBREAK>NUL  

set "InFile1=Dateipfade.txt"  
set "InFile2=Dateinamen.txt"   
set "OutFile=Kopieren.txt"  

< "%InFile1%" >>"%OutFile%"	(  
				 for /f "usebackq delims=" %%a in ("%InFile2%") do (  
										    set /p "Line="   
										    setlocal enabledelayedexpansion 
										    echo\"!Line!" "!Pfad!%%a\"   
										    endlocal 
										    )
				 )

for /f "delims=" %%I in ('type "Kopieren.txt"') do move /Y %%I  

pause
if exist Dateinamen.txt del Dateinamen.txt
if exist Dateipfade.txt del Dateipfade.txt
if exist Kopieren.txt del Kopieren.txt
exit 0