comparar caminhos físicos

[thiagocs 0]

preciso de uma função que compare dois caminhos físicos sendo um dinâmico e o outro estático.

 

preciso acessar virtualmente o caminho dinâmico assim,

 

comp = ""

comp = "../../"

comp = "img/produtos/"

 

essa função tem erro de lógica

 

<%function limpa(str)		if right(str,"1") = "\" then     str = mid(str,1,len(str)-1)	end if	limpa = Lcase(str)end functionSet fso = CreateObject("Scripting.FileSystemObject")Set fileObject = fso.GetFile(Request.ServerVariables("PATH_TRANSLATED"))	file_name = fileObject.NameSet fileObject = NothingSet fso = Nothinglocal_path = Request.ServerVariables("PATH_TRANSLATED")local_path = replace(local_path,file_name,"")local_path = limpa(local_path)caminho = "C:\Inetpub\wwwroot\bancodeimagens\rel\item"caminho = limpa(caminho)Response.Write local_path&"<BR>"&caminho&"<BR>"if local_path = caminho then	comp = ""		elseif len(local_path) > len(caminho) then  comp = local_path  comp = replace(comp,caminho,"")  aux = split(comp,"\")  comp = ""  lim = ubound(aux) 	 for i = 1 to lim    comp = comp&"../" 	 nextelse	comp = caminho	comp = replace(comp,local_path,"")	comp = replace(comp,"\","/")	end ifResponse.Write comp		%>

[Marhault 1]

Como assim... você quer q quando eu coloque: C:\Inetpub\wwwroot\meusite\imagens\teste.gif ele retorne: ..\..\..\..\imagens\teste.gif. é isso????????

[thiagocs 0]

por exemplo, se o caminho estático é c:\inetpub\wwwroot e o dinâmico c:\inetpub\wwwroot \bd\img tenho que gerar na variável comp "bd/img/" e se fosse ao contrário gerar " ../../".

[Marhault 1]

Naum entendi muito bem mas testa isso:

Estatico = "c:\inetpub\wwwroot"Dinamico = "c:\inetpub\wwwroot\bd\img"If Left(Dinamico, Len(Estatico)) = Estatico ThenFinal = Mid(Dinamico, Len(Estatico) + 2, Len(Dinamico) - Len(Estatico))arEstatico = Split(Estatico, "\")Comeco = ""For i = 0 To UBound(arEstatico)Comeco = "..\" & ComecoNextResponse.Write Comeco & FinalEnd If

OkZ???