---

Hallo zusammen,

welcher Befehl ist denn für das Auslesen des aktullen Dokumentnamens zuständig.

Bisher kannte ich nur den Pfad

fullpath = Part.GetPathName                    'Dateipfad mit Dateiendung
    'fullpath = swModel.GetPathName
    fullpath1 = Left(fullpath, Len(fullpath) - 7)  'Dateipfad ohne Dateiendung
    fullpath2 = Right(fullpath, 6)

Jemand ne Idee?

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
---------
Linux Unser,
Der Du bist im Kernel,
Geöffnet sei Dein Swap-File,
Dein KDE komme,
Dein Bash-Command geschehe,
Wie ein Red Hat so auch in Suse.
Unser täglich Login gib uns heute,
Und vergib uns unsere zu kleine Festplatte,
Wie auch wir vergeben Dir Deiner Installation.
Und führe uns nicht in die Kernel-Panik,
Sondern erlöse uns von Microsoft.
Denn Dein ist das Netz
Und die Festplatte
Und die Stabilität
In Ewigkeit

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

---

HI Peter,
wie wärs mit dem Befehl :

Code:

---

ModelDoc2::GetTitle

Description

This method retrieves the title of the document that appears in the active window's title bar.

Syntax (OLE Automation)

retval = ModelDoc2.GetTitle ()

Return:
(BSTR) retval
Title string, usually displayed on the window's title bar

---

Hast Du so etwas gesucht?

CU

------------------
Viele Grüße aus dem Schwarzwald
gismo
Meine bescheidene Website Klamm? Was ist Klamm?

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

---

Hallo,

kann mit "GetTitle" das auslesen, was ich brauche!!

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
---------
Linux Unser,
Der Du bist im Kernel,
Geöffnet sei Dein Swap-File,
Dein KDE komme,
Dein Bash-Command geschehe,
Wie ein Red Hat so auch in Suse.
Unser täglich Login gib uns heute,
Und vergib uns unsere zu kleine Festplatte,
Wie auch wir vergeben Dir Deiner Installation.
Und führe uns nicht in die Kernel-Panik,
Sondern erlöse uns von Microsoft.
Denn Dein ist das Netz
Und die Festplatte
Und die Stabilität
In Ewigkeit

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

---

Hallo Teddibaer.

Musst Du einfach aufpassen: je nach Einstellng in Windows kommt's mal mit oder ohne Extension!

------------------
Gruss
Andreas
A+E Müller AG

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

---

Danke, das hatte ich befürchtet! 

------------------
Gruß, der Teddibaer

Besucht mich doch mal ...
---------
Linux Unser,
Der Du bist im Kernel,
Geöffnet sei Dein Swap-File,
Dein KDE komme,
Dein Bash-Command geschehe,
Wie ein Red Hat so auch in Suse.
Unser täglich Login gib uns heute,
Und vergib uns unsere zu kleine Festplatte,
Wie auch wir vergeben Dir Deiner Installation.
Und führe uns nicht in die Kernel-Panik,
Sondern erlöse uns von Microsoft.
Denn Dein ist das Netz
Und die Festplatte
Und die Stabilität
In Ewigkeit

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

---

Hallo Teddibaer,

hier ein paar Programmzeilen, wie ich das bei einem Makro für Zeichnungen abgefangen habe:

    titel = Drawing.GetTitle
   
    If (InStr(PartName, ".sld") > 0) Then
      datei = Left(PartName, InStr(PartName, ".sld") - 1)
    Else
        If (InStr(PartName, ".SLD") > 0) Then
            datei = Left(PartName, InStr(PartName, ".SLD") - 1)
        Else
          datei = PartName
        End If
    End If

Gruß Bernd

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