---

Hallo zusammen,

gibt es eine Möglichkeit, das Verzeichnis aus dem heraus das Makro (catvba) gestartet wurde auszulesen?
Meine Versuche mit "GetModuleFileName" scheitern kläglich.

------------------
Frohes Schaffen
Michael Reiff

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

---

mit vbs mache ich es so:

Code:

---

Source_dir = WScript.ScriptFullName
Source_dir = left(Source_dir, inStrRev(Source_dir, "\"))

---

Axel

------------------
Inoffizielle deutsche CATIA Hilfeseite  Netiquette von cad.de

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

---

Hallo Axel,

das mit WScript kenne ich, funktioniert aber nicht in catvbs bzw. catvba. Gibt es da einen Trick, wie ich catvba klar machen kann, das es "WScript" als Object gibt?

------------------
Frohes Schaffen
Michael Reiff

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

---

Hi,

in der FAQ auf die in folgendem Beitrag hingewiesen wurde

http://ww3.cad.de/foren/ubb/Forum137/HTML/003979.shtml

habe ich folgenden Workaround gefunden:

1.) Öffne im Visual Basic Editor über das Menü "Tools" -> "References"
2.) Suche in der langen Liste den Eintrag "Microsoft APC 6.2 Object Library" und aktiviere ihn.
3.) Folgender Code ermittelt dann den Dateinamen und den Pfad

Code:

---

Dim CatVBA_Filepath, CatVBA_Filename As String
Dim APC_Obj As New MSAPC.Apc

CatVBA_Filename = APC_Obj.VBE.ActiveVBProject.FileName
CatVBA_Filepath = Left(CatVBA_Filename, InStrRev(CatVBA_Filename, "\") - 1)

---

Vieleicht hilft Dir das ja weiter.

Gruss,

PinKing

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

---

Super. Danke!
10u4u

------------------
Frohes Schaffen
Michael Reiff

[Diese Nachricht wurde von reiffm am 01. Apr. 2010 editiert.]

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

---

Hallo,

ich habe das gleiche Problem wie oben beschrieben. Allerdings will ich den Pfad des gerade ausgeführten CATScript ermitteln.

Code:

---

Dim itsPath as string
itsPath=left(WScript.ScriptFullName, inStrRev(WScript.ScriptFullName, "\"))

---

funktioniert so nicht, da angemeckert wird, dass WScript kein Objekt ist. Um ehrlich zu sein, verstehe ich das Vorgehen hier nicht ganz und die Online-Hilfe gibt hierzu auch keine Auskunft.

Danke und Gruzz
DonYouAn

------------------
Wenn man's kann ist es keine Kunst. Wenn man's nicht kann erst recht nicht! (Karl Valentin) 

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

---

Hi,

zu dem Script oben.

Unter Tools\References\ muss die höchste Version der APC selektiert
werden sonst funktioniert das Script nicht. Zusätzlich aber auch
Microsoft Visual Basic for Applications Extensibility 5.3 aktivieren.
(Ohne gab es hin und wieder ebenfalls Probleme)

[Diese Nachricht wurde von InFlames am 09. Apr. 2016 editiert.]

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

---

Als Alternative:

http://catia2.cad.de/index.php/de/tipps-tricks/programmierung/304-makro-start-verzeichnis-finden

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo Zusammen,

ich nutze diese Vorgehensweise um Bilder in eine UserForm zu laden.
Allerdings habe ich ein Problem.
Hier erstmal der Code:

Code:

---

Private Sub UserForm_Initialize()

    'Pfad des Makros finden
    Dim apc, Makropfad
    Set apc = CreateObject("MSAPC.Apc")
    Makropfad = apc.VBE.ActiveVBProject.FileName
   
    'Pfad der Bilder (resources) finden
    Dim revMakropfad As String
    revMakropfad = StrReverse(Makropfad)
    Dim Zeichen As Long
    Zeichen = InStr(1, revMakropfad, "\")
   
    Dim subMakropfad As String
    subMakropfad = Mid(revMakropfad, Zeichen)
   
    Dim Resourcepfad As String
    Resourcepfad = StrReverse(subMakropfad) & "resources\"
   
    'Bilder laden
    With Makro1Form
    .Makro1Image.Picture = LoadPicture(Resourcepfad & "Beispiel.jpg")
    End With

End Sub

---

Wenn ich das Makro1 so starte (Über eine benutzerdefinierte Catia Toolbar) setzt er mir den Makropfad auf:
"C:\Makros\Makro1\resources\"
Alles so wie es sein soll.

Danach starte ich ein anderes Makro. Makro2 - mit dem gleichen Code.
Allerdings ist der Makropfad immernoch auf Makro1 ("C:\Makros\Makro1\resources") gestellt.
Obwohl es ja jetzt "C:\Makros\Makro2\resources" heißen müsste.

Den String in Makro1 zu leeren mit Makropfad = "" bringt nichts.
Erst in Makro2 setzt er mir den Makropfad falsch. Anscheinend weil in
Makropfad = apc.VBE.ActiveVBProject.FileName
das ActiveVBProject immernoch Makro1 ist.

Gehe ich nun in den VBA-Editor und wechsle manuell in Makro2 startet das Makro wieder ohne Probleme.
Hat jemand eine Idee?

PS: Makro1 wird über

Code:

---

Private Sub CancelButton_Click()
    Unload Me
End Sub

---

Beendet

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