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:
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
FolderFromPath = Mid$(strPfadVollstaendig, InStrRev(strFullPath, "\") + 1)
Hallo Lachtaube
Antwort in 4 Minuten und 38 Sekunden - funktioniert, vielen Dank!
lg Micharius
Hallo Micharius,
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