Jag har en genväg och vill tabort den delen som är samma som App.Path

Tack på förhand
Krister

Hej
Dim SpliArr() As String
Dim Sökväg As String
Dim FileStr As String
'Se till att App.Path + filnamn hamnar i sökväg
SplitArr = Slit(Sökväg,"\")
FileStr = SplitArr(Ubound(SplitArr)-1)

mvh
Sven

Ja eller så här om du vill göra samma sak fast med färre kodrader.

Alt 1. Radera App.Path ==============================

fileStr = Replace(a, App.Path, "", 1, -1, vbTextCompare)


Alt 2. Radera App.Path\ ==============================

fileStr = Replace(a, App.Path & "\", "", 1, -1, vbTextCompare)


/peterh

Hej
Ja kan man lösa det Med Replace så är ju de det mest adekvata.
Lite modernt måste kolla hur det fungerar på djupet.

En Go Midsommar önskar
Sven