---

Fehlermeldung.JPG

Hallo,
hab eine kleine Herausforderung. Ich will ein Product in einen anderen Ordner kopieren und die Dateinamen alle ändern. Also erstelle ich eine Kopie des Products und allen Parts und Products in diesem und mach ein ReplaceComponent mit dem neuen Link.

Hier mal die Function, die dies machen soll:

Code:

---

Private Function moveFile(ByRef sourceFile As Product, ByVal targetDirectory As String)
    'get old and new File name
    Dim sourceFullName, target, sourceDirectory, targetFileName, sourceFileName As String
    sourceFullName = getFullNameOfProductObject(sourceFile)
    If sourceFullName = "" Then
        MsgBox "Fehler beim Verschieben des Objektes " & sourceFile.Name, vbCritical, "Verschieben"
        Exit Function
    End If
   
    'calculate file names
    sourceDirectory = Mid(sourceFullName, 1, InStrRev(sourceFullName, "\"))
    sourceFileName = Mid(sourceFullName, InStrRev(sourceFullName, "\") + 1, Len(sourceFullName))
    targetFileName = sourceFileName
   
    'create copy of file
    FileCopy sourceDirectory & sourceFileName, targetDirectory & targetFileName
    sourceFile.Name = sourceFile.Name & ".1"
    sourceFile.PartNumber = sourceFile.PartNumber & ".1"
    sourceFile.DesactivateDefaultShape
   
    'replace link
    On Error Resume Next
        sourceFile.DesactivateDefaultShape
        sourceFile.Parent.ReplaceComponent sourceFile, targetDirectory & targetFileName, False
    On Error GoTo 0
End Function

---

die Function getFullNameOfProductObject(sourceFile) liefert mir den Pfad der Datei, die verschoben werden soll.

Nun bekom ich bei dem Teil des ReplaceComponent die angehängte Fehlermeldung von CATIA (kein Laufzeitfehler).
Hab schon ein paar Versuche gestartet, biepielsweise das Part umzubennen, was jedoch keinen
Erfolg brachte.

Hat jemand eine Idee wie ich das beheben kann?

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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

---

das war ein dummes Problem, einfach den Dateinamen ändern, fertig 

------------------
                  \\\\|////
                  \\ _ _ //
                   ( o o )
================oOOo-(_)-oOOo==================
    The next time you think you are perfect,
           try walking on water
========================Oooo===================
                  oooO  (  )
                  (  )  ) /
                   \ ( (_/
                    \_)

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