[Resolvido] Caminho Virtual Do Caminho Absoluto

[xanburzum 169]

A função Virtual2Abso retorna o caminho virtual do caminho absoluto especificados

no argumento necessário caminho.

 

sintaxe:

 

string = Virtual2Abso(pathname)

exemplo:

 

 

Retorna a string "/New Folder/file.asp"

<% = Virtual2Abso( server.mappath("/New Folder/file.asp") ) %>

 

código:

 

<%
Private Function Virtual2Abso(byVal pathname)
dim tmp, strRoot
strRoot = Server.Mappath("/")
tmp = replace( lcase( pathname ), lcase( strRoot ), "" )
tmp = replace( tmp, "\", "/" )
Virtual2Abso = tmp
End Function
%>