recortar texto vb6

[Psyke1]

Hola amigos, les cuento mi duda:
Me gustaria saber como recorto un texto a partir de un caracter determinado, me explico:
pongamos que tengo una ruta qe es "c:\windows\media", entonces al apretar un boton,
recorta mi ruta por la derecha hasta que se encuentra con el caracter "\"
quedando asi: "c:\windows\".

Otro ejemplo seria:
"c:\windows\system32\wins" -----> "c:\windows\system32\"

Y lo mismo pero dejando solo el texto qe va despues del caracter "\", asi:
"c:\windows\system32\wins" -----> "wins"

muchas gracias a todos!!!

[Hasseds]

Con InStrRev:

Código [Seleccionar] Expandir



Dim cadena As String

cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))

cadena = "c:\windows\system32\wins"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))




S2


EDIT: tambien así

Código [Seleccionar] Expandir



cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1)



[Psyke1]

funciona perfecto, gracias Hasseds