[Resolvido] adicionar a \ ou remover uma \ entre as duas seq

[xanburzum 169]

Essa função combina duas parte de caminhos para um caminho absoluto. Ele faz isso

por determinar a existência ou não de adicionar a \ ou remover uma \ entre as duas seqüências.

 

code:

<%
Function caminho(ByVal caminho1, ByVal caminho2)
	if right(caminho1, 1) <> "\" and left(caminho2, 1) <> "\" then
		caminho= caminho1& "\" & caminho2
		Exit Function
	end if
	if right(caminho1, 1) = "\" and left(caminho2, 1) = "\" then
		caminho= left(caminho1, len(caminho1) - 1) & _
			"\" & right(caminho2, len(caminho2)-1)
		Exit Function
	end if
	caminho= caminho1 & caminho2
End Function
%>

e para chamar a funcaun

 

 

'path = c:\diretorio1\diretorio2\arq.xml
path = caminho("c:\diretorio1", "diretorio2\arq.xml")