$fpht = <<Kompletter systempath zu deinem Bilderordner>>;
 $datenbank = <<Deine datenbank>>;

 get "Id==$Id",$datenbank,"loopvar";

 while(get_next("loopvar")){
     $da = <<Feld mit Bild>>;
     next if $da =~ /^$datenbank/ # Nichts machen wenn schon geändert
     $zd = "$datenbank/$da";  # Ziel ist ein ordner der so heisst wie die DB
     rename("$fpht/$da","$fpht/$zd"); # Hier wird Verschoben
     mod "Id==$Id",["<<Feld mit Bild>>",$zd],$datenbank; # Datenbankeintrag auch ändern
 }