PDA

View Full Version : Part of a string



ksilenio
03-22-2020, 02:40 PM
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
03-22-2020, 04:13 PM
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
03-23-2020, 12:55 PM
OK Thank you Artik

ksilenio
03-23-2020, 02:06 PM
Hi i have another question
How can i take the right part of string (ytko.SL)
Thank you for your time
Kostas

Artik
03-23-2020, 02:25 PM
NewString = Mid(OldString, lPos + 1)Or

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

ksilenio
03-23-2020, 02:31 PM
OK Thank you very much for your help Artik