Hola compañeros, tengo una duda sobre el tema de como cortar una string hasta un identificador "\" empezando por el final.

El ejemplo seria este:

cadena = " c:\windows\carpetas"

mi intencion seria la de cortar esa cadena dandole a un boton y que apareciera en un txtbox esto:

                 " c:\windows"

No se si me he explicado bien.

Espero me podais ayudar.

Un saludo a todos.

Ese ultimo solo imprimiria los 2 primeros resutlados, pero si hay mas no serviria....

Echale un vistazo a esta fucnion que e echo, a partir del comando InStrRev

Public Function Cortar(texto As String, caracter As String) As String
Dim a As Integer
Dim res As String
 
a = InStrRev(texto, caracter)
res = Mid(texto, 1, a - 1)
 
Cortar = res
End Function
 
Private Sub Form_Load()
Dim ruta1 As String
Dim ruta2 As String
 
ruta1 = "C:\Windows\System32\Drivers"
ruta2 = "C:\Windows\System32"
 
MsgBox Cortar(ruta1, "\")
MsgBox Cortar(ruta2, "\")
End Sub

Un Saludo