[Resolvido] Caminho de arquivo

[xanburzum 169]

<script Language=VBScript RUNAT=SERVER>

Function getFilePath()

Dim lsPath, arPath

 

'Obter o caminho do arquivo virtual. O SCRIPT_NAME

'Item na coleção ServerVariables em

'Objeto de solicitação tem o caminho completo do arquivo virtual

lsPath = Request.ServerVariables("SCRIPT_NAME")

 

'Dividir o caminho . / Isso cria uma matriz unidimensional

arPath = Split(lsPath, "/")

'Definir o último item na matriz de cadeia em branco

'(O último item é realmente o nome do arquivo)

arPath(UBound(arPath,1)) = ""

 

'Junte os elementos da matriz. para

'Daro caminho virtual do arquivo

 

GetFilePath = Join(arPath, "/")

End Function

</SCRIPT>