Pro-blem

[MEandME]

Hi,

string = C:\Something\Something\Something and something\

I need code which will be doing something like this with above string:

(Click!)
string = C:\Something\Something\

(Click!)
string = C:\Something\

(Click! :-)
string = C:\

it's f hard

[milton]

Try this

'Create a new form with one text box and one command button
'Milton Neal miltonneal@arach.net.au

Option Explicit
Dim strLen As Integer
Dim strText As String

Private Sub Command1_Click()
Dim lofs As Integer ' Length of string
Dim c As Integer ' Counter
Dim strTemp As String 'Temp string buffer

lofs = strLen
strTemp = Left(Text1.Text, lofs)
For c = 1 To lofs
If Left(Right(strTemp, c), 1) = "\" Then 'Get the last char of the string and compare with \
strTemp = Left(Text1.Text, lofs - c + 1) 'Move it int the text box
Text1.Text = strTemp
strLen = Len(strTemp) - 1 'Save the new string length minus the \
Exit Sub 'Done
End If
Next c

End Sub

Private Sub Form_Load()
strText = "C:\something\something\or something"
Text1.Text = strText
strLen = Len(strText)
End Sub

[MEandME]

VERY good code!

Thanx for it

[milton]

Wasn't thinking to well last night .. but who does at 1 in the morning ...lol
Just a small change to the command click ... just incase the initial string ends with the '\' character. ... good luck

Private Sub Command1_Click()
Dim lofs As Integer ' Length of string
Dim c As Integer ' Counter
Dim strTemp As String 'Temp string buffer

If Right(Text1.Text, 1) = "\" Then strLen = Len(Text1.Text) - 1 'See if the last char is a \
lofs = strLen
strTemp = Left(Text1.Text, lofs)
For c = 1 To lofs
If Left(Right(strTemp, c), 1) = "\" Then 'Get the last char of the string and compare with \
strTemp = Left(Text1.Text, lofs - c + 1) 'Move it int the text box
Text1.Text = strTemp
strLen = Len(strTemp) 'Save the new string length
Exit For 'Done
End If
Next c

End Sub

[Phil Weber]

You might also look at the InStrRev function. ;-)