Dokumente umhängen

Der Server wurde ausgewechselt und die Laufwerke nicht mehr haargenau gleich gemappt. Das ehemalige Verzeichnis war „Y:“, jetzt ist es „M:“. Nun müssen alle Dokumente der gesamten Datenbank umgehängt werden. //Das Skript durchsucht die ganze DB nach Dokumenten im Pfad Y: und ersetzt diesen mit M:. //Ausführen sollte man du es, indem man 1 Dokument-Datensatz markiert, nicht mehrere. //Wie immer zuerst ein Backup der Daten vornehmen!!! READ WRITE([x0_Dokument]) QUERY([x0_Dokument];[x0_Dokument]s_Speicherpfad="Y:@") For (lCount;1;Records in selection([x0_Dokument])) GOTO SELECTED RECORD([x0_Dokument];lCount) [x0_Dokument]s_Speicherpfad:=Replace string([x0_Dokument]s_Speicherpfad;"Y:";"M:") SAVE RECORD([x0_Dokument]) End for UNLOAD RECORD([x0_Dokument]) REDUCE SELECTION([x0_Dokument];0)