Dateien verschieben abhängig von mehreren Separatoren

@echo off & setlocal
set "Ordner=D:\Dein Ordner"  
set "Separator=_"  

REM voruebergehend in den angegebenen Ordner wechseln
pushd "%Ordner%"  
REM in einer Schleife alle passenden Dateien (mit dem Separator im Namen; keine Ordner) abarbeiten
for /f "delims=" %%i in ('dir /b/a-d "*%Separator%*"') do (  
    REM Anfangsstring isolieren
    for /f "delims=%Separator%" %%a in ("%%i") do (  
        REM Anzahl der mit dem Anfangsstring beginnenden Dateien ermitteln und
        REM wenn mehr als eine Datei vorhanden ist ...
        for /f %%n in ('dir "%%a%Separator%*.*"2^>nul^|findstr "Datei(en)"') do if %%n gtr 1 (  
            REM ... den Zielordner erstellen (falls bereits vorhanden Fehlermeldung nicht anzeigen) ...
            md "%%a" 2>nul  
            REM ... und alle entsprechenden Dateien in den Zielordner verschieben
            move "%%a%Separator%*.*" "%%a">nul  
        )
    )
)
REM Wechsel des Ordners rückgängig machen
popd