Upload

Olá pessoal sera que alguem poderia me exclarecer uma duvida.

tenho um sistema de upload, que tenho que indicar o caminho.

não teria como eu pegar este caminho automatico ?

por exemplo se eu colocar o arquivo de upload numa pasta

teste então ele já pegaria o caminho e eu não precisava mexer no

código indicando E:\home\dominio.com.br\wwwroot\pasta blá blá blá.

tentei fazendo assim:

caminho = Request.ServerVariables("APPL_PHYSICAL_PATH")

mais ele jpoga as imagens na pasta raiz, e não onde esta o arquivo de upload

se eu colocar o arquivo de upload na pasta teste ele jogaria a imagem na mesma pasta.

veja abaixo meu código:

-----------------

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest,caminho

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

value = UploadRequest.Item("blob").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

caminho = Request.ServerVariables("APPL_PHYSICAL_PATH")

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

Set MyFile = ScriptObject.CreateTextFile(caminho&"\"&filename)

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next

MyFile.Close

---------------------------

Obrigado a quem me der uma luz