CurrentFolder()

Função que retorna o caminho físico da pasta atual.

Function CurrentFolder()
Dim f
f = AspSelf()
f = Left(f, InStrRev(f, "/") -1)
CurrentFolder = Server.MapPath(f)
End Function