Dateiname-Verzeichnis-Kombination per Funktion "zerlegen"

[inu]

Hallo Leute,

ich suche eine Möglichkeit, wie ich aus einer Dateiname-Verzeichnis-Kombination des Dateiname per LotusScript extrahiere, z.B.:

mail/vname.nsf --> vname.nsf
organisation/einkauf/datei.nsf --> datei.nsf

Hat jemand von euch evtl. etwas vorgefertigtes?

Vielen Dank

[eknori]

Code

Function StripPath(T$) As String
	Dim x%, ct%
	StripPath$ = T$
	x% = Instr(T$, "\")
	Do While x%
		ct% = x%
		x% = Instr(ct% + 1, T$, "\")
	Loop
	If ct% > 0 Then StripPath$ = Mid$(T$, ct% + 1)
End Function

Code

Sub Click(Source As Button)
	Msgbox StripPath ("c:\test\test\Hello.txt")
End Sub

[inu]

Danke Ulrich,

genau das habe ich gesucht.

Einen guten Rutsch noch ins neue Jahr!