Et lille AutoIt script kunne gøre det.
________________________________________
#include <file.au3>
#include <Array.au3>
Global $Sti = @ScriptDir & '\'
Global $FilListe = _FileListToArray($Sti, "*.jpg")
For $FilNavne = 1 to $FilListe[0]
Local $MappeNavn = StringTrimRight($FilListe[$FilNavne], 4)
DirCreate($Sti & $MappeNavn)
FileMove($Sti & $FilListe[$FilNavne], $Sti & $MappeNavn & '\' & $FilListe[$FilNavne)
Next
__________________________________________
Hvis du ikke kender AutoIt så er det meget nemt at bruge, bare download seneste version, åben editoren, kopier scriptet ind, så skal det lige saves som .au3 fil inden man kan køre det, og så bare tryk F5 for at køre det, behøver ikke at blive compiled til .exe først.
Så bare placer .au3 filen i mappen med alle billederne og kør det fra editoren, så skulle scripted læse alle filerne i mappen og lave mapper inden i den mappe de ligger og flytte filerne over i hver deres mappe.
https://www.autoitscript.com[...]
Har ikke testet scriptet men det skulle virke, prøv en test først med en mappe med nogle få .jpg's.
--
10900k, strix z490-gw, tuf3080s, 32gb lpx3200, 1tb sn750, rm750i
d15s, lian li pc-a10 alu, aoc cu34g2x