variable direct

[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?????

[calichecal]

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.

[seba123neo]

Hola, una opcion sin Split() puede ser..

Código vb:

Private Sub Form_Load()
   Dim vRuta As String
   vRuta = "c/:c2c/clientes.txt"
   MsgBox Mid(vRuta, InStrRev(vRuta, "/") + 1, Len(vRuta))
End Sub
 

sino usa Split()

saludos.

[banrey]

Me explico un poco mejor tengo este cod que me lleva a a un modulo de clase llamado Seldir pero cuando llega a la clase me sale el siguiente error

ERROR DE COMPILACION
VARIABLE NO DEFINIDA


Esta es la funcion LIstar:

Public Function listar(Path As String, ext As String)
'Empieza la acción
Dim sRuta As String
Dim i As Integer
Dim SelectDir As String
'las clases usadas...
'Dim colDir As String
'
#If esOLE Then
'Si usamos la librería OLE
Dim tNombre As New oSelDir.cNombre
Dim cSelDir As New oSelDir.SelDir
#Else
'Si usamos las clases cargadas
Dim tNombre As New cNombre
Dim cSelDir As New SelDir
#End If

On Local Error Resume Next


sRuta = Trim$(Path)
MousePointer = vbArrowHourglass
DoEvents
If Len(ext) Then
'Los archivos del directorio especificado
Set colDir = cSelDir.Directorio(sRuta, ext)
Else
'Sólo el directorio actual
tNombre.Nombre = sRuta
End If
colDir.AddItem tNombre
'End If

'Mostrar el contenido de colDir
List1.Clear
For Each tNombre In colDir
List1.AddItem tNombre.Nombre
Next
Label2 = "Archivos/Directorios hallados: " & List1.ListCount

'Liberar memoria y los objetos
Set tNombre = Nothing
Set colDir = Nothing
Set cSelDir = Nothing
'
'cmdAceptar.Caption = "&Aceptar"
MousePointer = vbDefault
DoEvents
On Local Error GoTo 0
End Function

y esta es mi clase Seldir:(donde es dirigido la variable que contiene la ruta del archivo):



Public Function Directorio(sDir As String, sExt As String) As Variant
'Esta función devolverá una colección del tipo Nombres
'con el contenido de los archivos del directorio indicado
'
Dim colDir As New cNombres

SelectDir.Dir1.Path = sDir

SelectDir.Archivos colDir, sExt

Set Directorio = colDir.Nombres
End Function

Por lo que puedo ver la variable colDir de la funcion Listar esta vacia.

como puedo hacer no entiendo si es ese el error o otro.

Muchas Gracias

[pkj]

La respuesta a la primera pregunta es simple:
Directorio=Dir$(Directorio)
Esto te deja en la variable Directorio solamente el nombre del fichero como pedías.
La única condición es que el fichero clientes.txt debe existir o te devolverá una cadena en blanco (creo).
El mogollón de después no lo he llegado a asimilar.