---

Hi Leute,

ich stehe hier vor einem Problem, bei dem selbst erfahreneren Programmierer unserer Firma ein großes Fragezeichen über Ihren Köpfen aufleuchtet.

Ich habe ein Inventorprojekt mit Hilfe von...

    Dim oApprentice As New ApprenticeServerComponent
    Dim oDoc As ApprenticeServerDocument
    Set oDoc = oApprentice.Open(Datei)

... in VB geöffnet um dieses zu bearbeiten bzw. Werte herauszulesen.

Anschließend wird ein Datei, auf die in diesem Projekt verwiesen wird (z.B. von "Item2") mit ...

    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
    Call fso.CopyFile(RefDatei, NewRefDatei, True)

...in ein neues Verzeichnis kopiert.

Anschließend folgt eine If-Abfrage in der mit ...

if oDoc.ReferencedFileDescriptors.Item(Counter).FullFileName <> NewRefDatei then
...
endif

...weitere Funktionen abgefragt werden, die dies beheben sollen.
Mir wird allerdings in diesen Funktionen gerne ein Fehler gebracht. Inzwischen weiß ich auch warum: .... Und jetzt kommts ....

Bin ich in dieser If-Anweisung und gehe mit dem Mauszeiger über dieses "FullFileName", wird mir ab und zu noch die alte Datei im alten Pfad angezeigt. Eigentlich sollte hier aber die neue Datei mit neuem Pfad stehen .... So wie ichs halt vorher kopiert habe. 

Lasse ich mir nun das "oDoc" im Überwachungsfenster anzeigen und kämpfe mich dann bis zu "oDoc.ReferencedFileDescriptors.Item(Counter).FullFileName" durch, wird mir dort das Richtige angezeigt, also die Neue Datei mit dem Neuen Pfad.

Gehe ich nun wieder mit dem Mauszeiger über "FullFileName" im Code, wird mir plötzlich auch das Richtige angezeigt! 

Also dann wird ersichtlich, dass die If-Anweisung falsche Daten bekommt und auch entsprechend reagiert, was mir Kopfzerbrechen bereitet. 

Kennt jemand das Problem? Weiß jemand ne Antwort?

------------------
MFG

Shakie

----------------
"Shake it, Baby!"

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