RE:Encontrar primer caracter de la derecha
prueba con esta función:
Function midato(valor) As String
Dim resultado As String
Dim ubicacion As String
Dim ub As Integer
For ub = 1 To 50
resultado = Right(valor, ub)
If Left(resultado, 1) = "\" Then
ubicacion = Right(valor, ub - 1)
Exit For
End If
Next ub
midato = ubicacion
End Function
el resultado que se obtiene es el siguiente:
A B
1 c:\aaa\bbb\ccc\datos.dat datos.dat
2 c:\aaa\bbb\detalle.seq detalle.seq
3 c:\aaa\costos.xls costos.xls