---

MsgBox OnlyFileName("c:\windows\win.com","\") 'bliver til 'win.com'


Function OnlyFileName(vPath$, vSlash$) As String
Dim p%

OnlyFileName = vPath

For p% = Len(vPath$) To 0 Step -1

If Mid$(vPath$, p%, 1) = vSlash$ Then

OnlyFileName = Mid$(vPath$, p% + 1, Len(vPath$) - p% + 1)

Exit Function
End If
Next p%
End Function

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.