Ver Mensaje Individual
  #2 (permalink)  
Antiguo 30/07/2009, 18:33
Avatar de calichecal
calichecal
 
Fecha de Ingreso: junio-2009
Ubicación: Colombia
Mensajes: 288
Antigüedad: 15 años, 10 meses
Puntos: 12
Respuesta: variable direct

Cita:
Iniciado por banrey Ver Mensaje
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.

Última edición por calichecal; 30/07/2009 a las 18:38