Ich hab keine Ahnung, ob es ohne einen Direkten SQL Befehl auch geht.
Aber das war auf die schnelle das einfachste:
program VerschiebeElemente;
var
quellOrdnerID, zielOrdnerID: Integer;
begin
// Definiere Quell- und Zielordner IDs
quellOrdnerID := 8203; // ID von Ordner A
zielOrdnerID := 8279; // ID von Ordner B
Database(0). ExecuteSQL('update item_folders set folder='+IntToStr(zielOrdnerID)+' where folder ='+IntToStr(quellOrdnerID));
SystemLog('fertig.');
end.
Bitte beachte, das ich nicht weiß, welche Nebenwirkungen hier auftreten könnten.
Wo kam eígentlich dein Code her ?
das sieht mir fast nach ChatGPT aus…