---

Hallo zusammen,

ich habe folgendes Problem:
Ich habe einen Pfad (Q:\cad\3D\Catia_V5_config\flexplus\catv5\caa\agile\ecc\6.4\Frames)
Ein Teil dieses Pfades (Q:\cad\3D\Catia_V5_config\flexplus\catv5) wird durch folgendes Kürzel verkürzt (%FLEXPLUS_ROOT_WIN%)
Wenn ich %FLEXPLUS_ROOT_WIN% im Arbeitsplatz oben eingebe springt er direkt in den Ordner "catv5".
Soweit ist alles richtig. Wenn ich nun aber das Kürzel im Pfad meines "NewFrom" Befehls eingebe erhalte ich eine Errormeldung (Method "NewFrom" of object "Documents" failed). Mit dem normalen Pfad jedoch funktioniert das Ganze. Ich verstehe nur nicht wieso das nicht mit dem Kürzel funktioniert, wo es doch direkt zu diesem Ordner springt. Von da aus gehe ich ja ganz normal den Pfad weiter.

Zur Info:
Es ist in sofern wichtig, dass dieses Kürzel funktioniert, da unsere Rechner lokal zwar die gleichen Laufwerke haben, global jedoch nicht, das heisst wenn man ein Programm global machen möchte, muss man dieses Kürzel einbinden, da auf allen Rechnern nach diesem Kürzel die gleiche Ordner- und Dateistruktur vorhanden ist.

Hier noch ein Auszug aus meinem Code:

Code:

---

Private Sub IMGa1_Click()
Dim DrawingDocumentb As DrawingDocument
Dim documentsa As documents

Set documentsa = CATIA.documents

On Error Resume Next
Set DrawingDocumentb = documentsa.Item("LANDSEUP_A1.CATDrawing")
On Error GoTo 0

If DrawingDocumentb Is Nothing Then
    Set DrawingDocumentb = documentsa.NewFrom("%FLEXPLUS_ROOT_WIN%\caa\agile\ecc\6.4\Frames\LANDSEUP_A1.CATDrawing")
End If

Unload Me

End Sub

---

Wenn jemand eine Idee hat, würde ich mich sehr freuen

------------------
Grüße aus dem schönen Düsseldorf
Michael

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

---

Hallo Michael,
du machst einen Fehler, den viele begehen. Du gehst davon aus, dass das funktionieren muss, weil es woanders ja auch funktioniert. Wenn du die Systemvariable mit der Syntax (%...%) angibst, dann erkennt das Betriebssystem, dass dieser Werte für eine Variable steht, sucht diese und liest diese, wenn vorhanden, aus. Das ist eine Funktion, die in diesem Element integriert ist. Bei den einzelnen vba-Funktionen ist das allerdings nicht der Fall. Du musst also vor der Anwendung diesen Wert aus dem System auslesen.
hier dein Code dementsprechend angepasst...

Code:

---

Private Sub IMGa1_Click()
Dim strEnv as String
Dim DrawingDocumentb As DrawingDocument
Dim documentsa As documents
Set documentsa = CATIA.documents

On Error Resume Next
Set DrawingDocumentb = documentsa.Item("LANDSEUP_A1.CATDrawing")
On Error GoTo 0

strEnv = Environ("FLEXPLUS_ROOT_WIN")

if strEnv = "" then exit sub

If DrawingDocumentb Is Nothing Then
    Set DrawingDocumentb = documentsa.NewFrom(strEnv & "\caa\agile\ecc\6.4\Frames\LANDSEUP_A1.CATDrawing")
End If

Unload Me

End Sub

---

HTH

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Vielen Dank, funktioniert eindwandfrei 

Rein interessehalber was genau bewirkt der Befehl "Environ"?

------------------
Grüße aus dem schönen Düsseldorf
Michael

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

---

Der liest die Systemvariable aus.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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