Batch um Dateien mit unregelmäßigen Namen und dazu zweite Datei mit nur anderer Endung in neues Verzeichnis zu verschieben

Folgendes Problem besteht: Auf (meines Wissens bisher) 26 Notebooks wurde mit einer selbstprogrammierten Lösung aus unserer alten Firma von einem ehemaligen Mitarbeiter eine Datei ausgegeben, dessen Namen und Endung variiert. Grundsätzlich wird dazu eine Datei parallel erstellt, die sich nur von der Endung her unterscheidet (bild mit veriierendem format und endung). Das alles mehrmals am Tag, an 26 Plätzen, rückwirkend auf 2 Jahre.

Jetzt muss für ein neues Modul und dessen Import eine andere Struktur geschaffen werden. Dass das per Hand nicht geht, haben wir seit 2 Tagen in fummelarbeit schmerzhaft feststellen müssen. Parallel hat einer nach einer automatisierten Lösung gesucht, aber leider fehlt das Wissen, weshalb ich jetzt wirklich mal fragen muss.


Die batch soll:

1. am einfachsten immer den ersten Dateinamen im vorher gesetzten verzeichnis suchen
2. dessen namen ohne endung in eine variable setzen
3. ein verzeichnis mit dem namen erstellen
4. die partnerdatei mit gleichem namen aber ander endung zusammen mit der ersten in das neue verzeichnis verschieben
4a. in manchen fällen sogar eine dritte datei mit gleichem namen, aber wieder anderer endung mit verschieben
5. der partnerdatei (immer ein bild - format aber jpg, bmp, gif oder png) "folder" als namen verpassen
6. mit der nächsten, datei im ausgangsverzeichnis weiter machen


wenn wir das weiter händisch machen müssen, sind wir in grob geschätzten 4 jahren unserem ziel etwas näher.
normalerweise sollte von hersteller des neuen moduls ja sowas angeboten werden, aber als 4 mann-betrieb ist uns der migrations-support geringfügig zu teuer und ich hab so schon probleme meine firma über wasser zu halten. die daten von damals würden uns evtl. wieder frischen wind in die auftragsmappen bringen, ich wär sooo dankbar.

euer peiker

@echo off &setlocal

:: Dein Verzeichnis (anpassen):
set folder=c:\test

pushd "%folder%" 2>nul  

if errorlevel 1 (
 pause>nul|set /p "=Pfad nicht gefunden "  
 goto :eof
)

for /f "tokens=*" %%i in ('dir /a-d /b /on *.jpg *.bmp *.gif *.png') do call :sub "%%i"  
for /f "tokens=*" %%j in ('dir /a-d /b /on') do move "%%j" ".\%%~nj\%%j" 2>nul  
popd
echo.
pause>nul|set /p "=Fertig "  
goto :eof

:sub
if "%before%"=="%~n1" (  
 move %1 ".\%~n1\folder%~x1"  
) else (
 md "%~n1"  
 move %1 ".\%~n1\folder%~x1"  
)
set "before=%~n1"  
goto :eof

folder = "C:\test\"  

Set fso = CreateObject("Scripting.FileSystemObject")  
Set fsoFolder = fso.GetFolder(folder)
For Each fsoFile In fsoFolder.Files
	
	on error resume next
		
	' Filename ohne Endung in Variable schreiben  
	filename = fso.getBaseName(fsoFile)
	' Endung in Variable speichern  
	ext = fso.GetExtensionName(fsoFile)
		
	' Datei umbennen, da sonst bei Dateien ohne Endung kein   
	' Ordner erstellt werden kann  
	fsoFile.name = "folder." + ext  
	
	' Falls der Ordner noch nicht vorhanden ist wird er erstellt  
	if not fso.folderExists(folder & filename) then
		fso.CreateFolder(folder & filename)
	End If
	
	' Datei in den Ordner verschieben  
	dest_path = folder & filename & "\"  
	fso.MoveFile fsoFile, dest_path

Next
Set fso = Nothing
Set fsoFolder = Nothing