Part of a string

Hi to everyone
I have this string "E:\Ksilenio Projects\Example\ProjectID_12\ytko.SL" and i want to use the string except the last part "\ytko.SL".How can i do it?
Thank you for your time
Kostas

Code:

---

Sub AAA()
  Dim OldString As String
  Dim NewString As String
  Dim lPos As Long
 
  OldString = "E:\Ksilenio Projects\Example\ProjectID_12\ytko.SL"
  lPos = InStrRev(OldString, "\")
  NewString = Left(OldString, lPos - 1)
 
  MsgBox "Original string:" & vbLf & OldString & vbLf & "New string:" & vbLf & NewString
End Sub

---

Artik

OK Thank you Artik

Hi i have another question
How can i take the right part of string (ytko.SL)
Thank you for your time
Kostas

Code:

---

  NewString = Mid(OldString, lPos + 1)

---

Or

Code:

---

  NewString = Right(OldString, Len(OldString) - lPos)

---

Artik

OK Thank you very much for your help Artik