Letzter Ordern aus Ordnerpfad auslesen

[Micharius]

Hallo zusammen

Mittels eines Auswahldialog kann der Benutzer einen Ordner auswählen, den ich als String zurück erhalten, z.B.

\\Server\Daten\XX-Ablage\3_Marketing_Sales\33_Verkauf\Akquisition\Angebote\8832_ABC_Beispiel


Den String übergebe ich an eine Funktion, die mir den letzten Ordnernamen extrahieren soll. Dies habe ich momentan so erstellt:

Code [Auswählen] Erweitern

Public Function OrdnerAusPfad(ByRef strPfadVollstaendig As String) As String

FolderFromPath = Mid(strPfadVollstaendig, InStrRev(strFullPath, "\"))

End Function

Noch funktioniert der Code aber nicht ganz nach meinem Wunsch, obiger Code liefert mir in diesem Beispiel "\8832_ABC_Beispiel". Ich möchte aber den Backslash "\" noch wegbringen, damit ich den reinen Ordnernamen erhalten. Hat mir jemand einen Tippl, was ich da ergänzen müsste?

Beste Grüsse

Micharius

[Lachtaube]

Code [Auswählen] Erweitern

   FolderFromPath = Mid$(strPfadVollstaendig, InStrRev(strFullPath, "\") + 1)


[Micharius]

Hallo Lachtaube

Antwort in 4 Minuten und 38 Sekunden - funktioniert, vielen Dank!

lg Micharius

[Beaker s.a.]

Hallo Micharius,

Code [Auswählen] Erweitern

FolderFromPath = Mid(strPfadVollstaendig, InStrRev(strFullPath, "\"))
Wenn du das nicht bloss kopiert sondern auch versucht hättest es zu
verstehen, wärst du auch selber drauf gekommen. 
gruss ekkehard