---

Ich weiß nicht wie ich das machen soll.

Ich brauche aus dem String:

Code:

---

\\INAPP\Zeichnungen\3\8\800\383000A02010500_02.pdf

---

Das hier extrahiert:

Code:

---

\\INAPP\Zeichnungen\3\8\800\

---

Also von rechts weg bis zum ersten "\"

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Suche nach "String Split" gibt eine gute Anzahl von Beispielen:

strFilePath = "C:\Users\comp\Documents\sample.xlsx"

sFileName = Mid(strFilePath, InStrRev(strFilePath, "\") + 1, Len(strFilePath))

oder

sFileName=split(strFilePath,"\")(ubound(split(strFilePath,"\")))

Quelle: http://vbadud.blogspot.com/2010/07/how-to-extract-file-name-from-fullpath.html

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Phillip,

versuchs mal so:

Strings.Mid("\\INAPP\Zeichnungen\3\8\800\383000A02010500_02.pdf", 1,Strings.InStrRev("\\INAPP\Zeichnungen\3\8\800\383000A02010500_02.pdf", "\", , vbTextCompare))

Gruß
Stefan

Edit:

  zu langsam 

------------------
Wer nicht mitmacht, kann auch nichts verändern

[Diese Nachricht wurde von KatzenHund am 17. Jun. 2014 editiert.]

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

---

Oh mist, zu spät mitbekommen schade.

Habe es jetzt so aber so klappt es auch:

Code:

---

Public Function CutRight(Text As String, Zeichen As String)
' Gibt den Text rechts von Zeichen als Wert aus
On Error GoTo Zeichennichtgefunden
    Dim durchlauf, Lengh As Integer
    Dim last_round As Boolean
    Dim Ende As String
    CutRight = ""
    durchlauf = 0
    last_round = False
    Lengh = Len(Text)
    Do
        If Ende = Zeichen Then
            last_round = True
        End If
        CutRight = Left(Text, Lengh - 1)
        'MsgBox "CutRight" & vbNewLine & CutRight
        Ende = Right(CutRight, 1)
        'MsgBox "Text" & vbNewLine & Ende
        Lengh = Lengh - 1
    Loop Until last_round = True
    Exit Function
Zeichennichtgefunden:
    CutRight = False
End Function

---

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

IMO einfacher:

Code:

---

Dim filesystem As Object
Set filesystem = CreateObject("Scripting.FilesystemObject")
pfad = filesystem.GetParentFolderName(<vollerPfadinklDateiname>) & "\"

---

z.B. Pfad des aktuellen Inventordoks ermitteln:

Code:

---

Public Sub Dateipfad()
Dim filesystem As Object
Set filesystem = CreateObject("Scripting.FilesystemObject")
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
pfad = filesystem.GetParentFolderName(oDoc.FullFileName) & "\"
MsgBox (pfad)
End Sub

---

------------------
Grüsse
Jürgen
Über 1400 Tipps in der Inventor FAQ
Inventor Schulungsvideos und eBook zum runterladen
Die besten Tipps und Tricks für Einsteiger | für erfahrene Anwender | bei Inventor Abstürzen | die Simulation

[Diese Nachricht wurde von invhp am 18. Jun. 2014 editiert.]

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

---

Es wird nie der Pfad vom aktuellen Dokument genommen.
Ich habe in meinem Programm PDF und IDW Export und bei jedem Export wird der Exportpfad in eine .ini geschrieben.
Und wenn man eine Einstellung aktiv hat (in letzten Ordner) Fragt er nicht nach wohin gespeichert werden soll sondern liest aus der ini den letzten Pfad aus und speichert dort.
Nur der Pfad wird eben mit Dateiname gespeichert da ich ihn so auch für den e-mail Versand benutze.

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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

---

Zitat:

---

Original erstellt von axi92:
Es wird nie der Pfad vom aktuellen Dokument genommen.

---

Dein Frage war, wie aus dem Pfad mit Dateiname der Pfad extrahiert werden kann. genau das macht Code 1 oben. Code 2 ist nur ein Anwendungsbeispiel.

------------------
Grüsse
Jürgen
Über 1400 Tipps in der Inventor FAQ
Inventor Schulungsvideos und eBook zum runterladen
Die besten Tipps und Tricks für Einsteiger | für erfahrene Anwender | bei Inventor Abstürzen | die Simulation

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

---

Achso ok dann habe ich es falsch verstanden

------------------
Grüße aus Wien
Philipp
http://black-evolution.de/

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