---

Hallo Zusammen,

ich möchte mit Hilfe eines Makros Product Dateien, die in einem übergeordneten Product hängen in einen anderen Ordner verschieben.

Dazu benutze ich den Code:

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "C:\OriginalFolder\Example.Product, "C:\NewFolder"

Das funktioniert auch alles wunderbar: Ich kann das Produkt öffnen, lass das Makro darüber laufen und er verschiebt mir die geöffneten Produkte in den "NewFolder". Allerdings zieht er die Links im CATIA nicht mit. D.h. wenn ich CATIA schließe und das Produkt neu öffne, findet er die Produkte nun nicht mehr, da sie sich jetzt an der neuen Stelle befinden. Auch der Versuch einfach über das SaveManagement nachzuspeichern ist gescheitert, da dort auch der alte Pfad (C:\OriginalFolder) stehen bleibt, und beim erneuten Speichern nach Makro Durchlauf, die Datei einfach im (OriginalFolder) neu abgespeichert wird.

Gibt es hier eine Möglichkeit bei Verschieben der Dateien per Makro im Dateisystem, die Links im Produkt mitzuziehen?

Grüße

misterfpx

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Schon mal mit CreateSendTo (Send to) probiert?
Allerdings ist dazu die SmarTeam-Linzenz (PX1) erforderlich

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP