Part of a string

[ksilenio]

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

[Artik]

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

[ksilenio]

OK Thank you Artik

[ksilenio]

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

[Artik]

NewString = Mid(OldString, lPos + 1)Or

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

[ksilenio]

OK Thank you very much for your help Artik