s em upload

[crazybaby 0]

tenho o seguinte código de upload.naum consigo fazer com q ele grave em meu site na pasta "imagens"

como fazer isso?(o codigo abaixo é o original)

eu tentei uusar server.mappath("imagens") na variavel "PastaDestino" e naum deu. alguem tem solução, para q faça ele gravar no diretorio"imagens"?

 

<%@ Language=VBScript %><%    Dim Contador, Tamanho    Dim ConteudoBinario, ConteudoTexto    Dim Delimitador, Posicao1, Posicao2    Dim ArquivoNome, ArquivoConteudo, PastaDestino    Dim objFSO, objArquivo                 PastaDestino = "c:/"                '***** Determina o Tamanho do Conteúdo *****    Tamanho = Request.TotalBytes    '***** Obtém o Conteúdo no Formato Binário *****    ConteudoBinario = Request.BinaryRead(Tamanho)    '***** Transforma o Conteúdo Binário em String *****    For Contador = 1 To Tamanho  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))    Next    '***** Determina o Delimitador de Campos *****    Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)    '***** Percore a String Procurando os Campos   *****    '***** Identifica os Arquivos e Grava no Disco *****    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")         Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)    Do While True  ArquivoNome = ""  Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")  If Posicao1 = 0 Then 	 Exit Do  Else 	 '***** Determina o Nome do Arquivo ***** 	 Posicao1 = Posicao1 + 10 	 Posicao2 = InStr(Posicao1, ConteudoTexto, """") 	 For Contador = Posicao2-1 To Posicao1 Step -1    If Mid(ConteudoTexto, Contador, 1) <> "\" Then   	 ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome    Else   	 Exit For    End If 	 Next 	  	 '***** Determina o Conteúdo do Arquivo ***** 	 Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4 	 Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2 	 ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1)   	 '***** Grava o Arquivo ***** 	 If ArquivoNome <> "" Then    Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True)     objArquivo.WriteLine ArquivoConteudo         objArquivo.Close     Response.Write "Arquvo " & PastaDestino & ArquivoNome & " gravado com sucesso!!!<BR>"    Set objArquivo = Nothing 	 End If  End If    Loop    Set objFSO = Nothing %>

valews

[Salgado 4]

Tente assim:

PastaDestino = Server.MapPath("Imagens/")

[crazybaby 0]

não deu....olha só o q acontece

Arquvo C:\WINDOWS\Desktop\upload2\Imagenssmile.bmp gravado com sucesso!!!

eu enviei uma img chamada 'smile.bmp' e o nome dela foi tranfsormada, pegando a pasta + o nome da img

[Salgado 4]

Tenta inverter a barra:

PastaDestino = Server.MapPath("Upload\")

[crazybaby 0]

Tenta inverter a barra:

PastaDestino = Server.MapPath("Upload\")

deu no mesmo!to fikando com raiva disso já! :lol:

[Salgado 4]

Usa esse:

PastaDestino = Server.MapPath("Imagens/")

E aqui:

Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True)

Troca por:

Set objArquivo = objFSO.CreateTextFile(PastaDestino &"\"& ArquivoNome, True)

[crazybaby 0]

mesmo coisa!ele junta o nome da pasta com o nome do arquivo....

[Salgado 4]

Ou ele gravou na pasta certa só deve estar mostrando errado por causa disso:

Response.Write "Arquivo " & PastaDestino &"\"& ArquivoNome & " gravado com sucesso!!!<BR>"

Acerte para:

Response.Write "Arquvo " & PastaDestino & ArquivoNome & " gravado com sucesso!!!<BR>"

[crazybaby 0]

agora funcionou!! :lol: :lol: :lol: valew salgado!!

[sginho 0]

Voce escolhe a imagem numa form numa pagina anterior que reenvia para esta certo?e como voçe esta a passar os valores? esta no codigo de upload?fiquem bem

[crazybaby 0]

Voce escolhe a imagem numa form numa pagina anterior que reenvia para esta certo?e como voçe esta a passar os valores? esta no codigo de upload?fiquem bem

sim!tenhnu um formulario.e a pagina q faz os ups ´essa aí q eu passei lah em cima