Path Relativo

Bueno, vengo a pedir que alguien sea el voluntario y colabore con esto. Yo tengo una solucion fea pero quiero ver otras, antes que nada explicare lo que es el Path Relativo con ejemplos:

A) C:\JUANCHO\CARLA
B) C:\

Path Relativo: A) ..\JUANCHO\CARLA
B) C:\ (No existe Path Relativo)

C) C:\QUIJOTE\CRISTINA
D) C:\QUIJOTE\CARLA\JUAN

Path Relativo: C) ..\..\CRISTINA
D) ..\..\CARLA\JUAN

Bueno, manos a la obra!
TIP: Si se dam cuenta los "..\" son por los directorios que se repiten de izquierda a derecha.

Nada mas!
Saludos!

explica mejor ¬¬ o ya empezastes a darle al porro para ser hilander va por ahi te quema las neuronas y terminas siendo gilander

eso que es?

ENtendi, pèro q qres hacer con eso? ;S

no entendi q es lo q qeres acer

Una cosa, hay que postearlo como funcion que se llama:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Public</span> FunctionGivePathRelativo<span style="color: #66cc66;">(</span>ByVal Path1 <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span>, ByVal Path2 <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li></ol></div>[/vb]

Sigo esperando la respuesta, cuando este posteare la mia

Sirve para saber el Path Relativo para usar comadnos del DOS.

vos lo que queres es que por cada \ te ponga ... ? antes de la ultima.. o no entendi?

la verdad

La verdad no entiendo tu manera de expresarte me podrias explicar un poco mejor?

bueno me parece que acabo de entender


A) C:\JUANCHO\CARLA
B) C:\

Path Relativo:
A) ..\JUANCHO\CARLA
B) C:\ (No existe Path Relativo)



por ejemlo, en el A , meparece que tendria que ser ..\..\CARLA

no?


C) C:\QUIJOTE\CRISTINA
D) C:\QUIJOTE\CARLA\JUAN

Path Relativo:
C) ..\..\CRISTINA
D) ..\..\CARLA\JUAN


me parece que ya entendi lo que quiere hacer,, es buscar todos los directorios dentro de un directorio, es decir, poner ANTES DEL QUIJOTE, TODOS ...

no?

Re: la verdad

darkbad dijo:

La verdad no entiendo tu manera de expresarte me podrias explicar un poco mejor?

Haz clic para expandir...

Es facil, la idea es hacer una funcion que devuelva el Path Relativo (Pero escribirlo como funcion, no tirar codigo suelto)

Re: la verdad

Tavo dijo:

darkbad dijo:

La verdad no entiendo tu manera de expresarte me podrias explicar un poco mejor?

Haz clic para expandir...

Es facil, la idea es hacer una funcion que devuelva el Path Relativo (Pero escribirlo como funcion, no tirar codigo suelto)

Haz clic para expandir...

:S , nose para que lo queres si sabes hacerlo, bueno no se q es el path relativo , pero con el codigo del otro pibe ya esta ..

edit: porque siempre ocultsa todo ^^ especifica un poco


edit2:

en un modulo
Public Function Sumar(Valor1 As Integer) As Integer
Dim Valor2 As Integer
Sumar = Valor1 + 2
End Function


y desde un boton
talcosa = sumar(numero)

si tratamos de usar elc odigo del compañero podemos poner

Public FunctionGivePathRelativo(Path As String) As String
'Darkbad
For m = 1 To Len(Path)
GetChr0 = Right(Path, m)
GetChr1 = Left(GetChr0, 1)
If GetChr1 = "" Or GetChr1 = "/" Then
c = c + 1
End If
Next m
For m = 1 To Len(Path)
GetChr0 = Left(Path, m)
GetChr1 = Right(GetChr0, 1)
j = j + 1
If GetChr1 = "" Or GetChr1 = "/" Then
j = 0
s = s + 1
If s = c Then
FunctionGivePathRelativo = Right(GetChr0, m-j)
'OutputPath.Text = Right(GetChr0, m - j)
Exit Sub
End If
End If
Next m
end function


y desde un boton o algo
textPathFinal.text = FunctionGivePathRelativo(TextPathInicial.Text)