Cita:
Iniciado por banrey
Hola muchachos una cosulta tengo una variable llamada direccion que toma la ruta de un archivo y yo necesito obtener el valor del archivo apartir de esa variable como logro hacer esto. pongo un ejemplo.
ITEM=c/:c2c/clientes.txt
direccion = ITEM
yo necesito es que la variable sea igual a clientes.txt, quitandole la ruta y dejando solo el nombre del archivo ubicado en esa ruta
como puedo hacer esto por favor?????
yo lo haria asi:
Private Sub Command1_Click()
Dim eslas As String, i As Integer, contrario As String, pos As Integer
Dim item_derechaaizquierda As String, cdireccion As String, direccion As String
Dim direccionalcontrario As String
Item = c/:c2c/clientes.txt
eslas = "/"
For i = Len(Item) To 1 Step -1
contrario = Mid(Item, i, 1)
item_derechaaizquierda = item_derechaaizquierda & contrario
Next i
pos = InStr(1, item_derechaaizquierda, eslas)
direccionalcontrario = Left(item_derechaaizquierda, pos - 1)
For i = Len(direccionalcontrario) To 1 Step -1
cdireccion = Mid(direccionalcontrario, i, 1)
direccion = direccion & cdireccion
Next i
End Sub
aunque yose que existen otros modos menos largos,solo es cuestion de dedicarle un rato mas,ojala te sirva este.