Upload

[luciano 0]

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

[william.santos 0]

Server.MapPath(fileName)

 

Essa instrução vai apontar o caminho da tua página pra gravação do arquivo. Dá uma conferida!

 

[]'z

[luciano 0]

Desculpe minha burrice, mais onde eu altero ??

 

Server.MapPath(fileName)

 

Essa instrução vai apontar o caminho da tua página pra gravação do arquivo. Dá uma conferida!

 

[]'z

[jrcardozo 4]

de

caminho = Request.ServerVariables("APPL_PHYSICAL_PATH")

para

caminho = server.mappath("teste")