---

Hallo Forum

Folgender Code:
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
    Dim oFileName As String
    oFileName = Left(oDrawDoc.DisplayName, Len(oDrawDoc.DisplayName) - 4)
....

In “oDrawDoc.DisplayName” steht eigentlich der Dateiname der  Zeichnung (12345678.idw).
Aber nicht immer!
Auf manchen Rechner ist das Ergebnis nur „12345678“ ohne .idw!
Die Rechner sollten eigentlich gleich sein, die Software auch.
Hat jemand eine Erklärung dafür?

Mfg
3D-User

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

---

Hallo

Ist das immer die gleiche IDW? Der DisplayName ist das was im Teilebrowser angezeigt wird. Da kann der User notfalls auch den Namen einer anderen IDW reinschreiben. Hol dir den Namen lieber aus dem FullDocumentName.

Code:

---

Private Sub NameSplit()

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim sFileName As String
sFileName = oDrawDoc.FullDocumentName

Dim oArray() As String
oArray = Split(sFileName, "\")

Dim sNewFileName As String
sNewFileName = Replace(oArray(UBound(oArray)), ".idw", "")

End Sub

---

------------------
MfG
Ralf

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

---

Hallo Ralf

Danke für den Hinweis.
Ich hab entdeckt dass sogar die Einstellung des Windows Explorer „Erweiterung bei bekannten Dateitypen ausblenden“ Einfluss auf „.DisplayName“ hat.

Ich habe mittlerweile alle „.DisplayName“ aus meinem Code entfernt und durch „.FullFileName“ ersetzt.
Natürlich in Form einer Funktion, so ähnlich wie du es beschrieben hast.

Mfg
3D-User

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