Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal!
Havia um tempo que eu não precisava da ajuda de vocês, mas desta vez eu realmente necessito.
O problema é o seguinte:
ASP
dim ImagemImagem = server.MapPath("../"&Session("Foto"))
Set fso = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Imagem, server.MapPath("Imagens")
depois de executar este código dá o seguinte erro:
Erro de tempo de execução do Microsoft VBScript erro '800a0046'
Permissão negada
/irmaos/adm/mural/mural_adicionar.asp, line 164
onde a linha 164 é a linha acima em negrito.
ASP
'se eu trocar: FSO.CopyFile Imagem, server.MapPath("Imagens")
'por:
FSO.CopyFolder MapPath("../fotos_usuarios"), MapPath("Imagens")
'Funciona perfeitamente.
Já dei permissão na pasta, já fiz tudo que sabia, mas nada de dar certo.
Obs.: Os endereços estão corretos.
Espero que me ajudem.
o caminho está correto? existe algo na session("foto")?
Olá pessoal!
Desculpe-me pela demora em responder.
Já coloquei a "\" no final da pasta para onde vai a foto e não mudou nada.
Continuo com o mesmo problema: Permissão negada.
http://forum.imasters.com.br/public/style_emoticons/default/natal_mad.gif
o caminho está correto? existe algo na session("foto")?
Olá!
Na Session("foto") tem o endereço que necessito.
Já troquei e coloquei à mão o endereço no lugar da session e deu a mesma. Permissão negada!
Obs.: Eu estou usando o IIS, enviei os arquivos para o servidor e deu a mesma coisa.
Alguem tem mais idéias?
faça assim e poste o que aparece no browser após o teste
ASP
Imagem = server.MapPath("../"&Session("Foto"))response.write(imagem):response.end()
Set fso = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Imagem, server.MapPath("Imagens")
>
faça assim e poste o que aparece no browser após o teste
ASP
Imagem = server.MapPath("../"&Session("Foto"))response.write(imagem):response.end()
Set fso = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Imagem, server.MapPath("Imagens")
Olá maninho!
apareceu isso, o endereço correto:
C:\Inetpub\wwwroot\irmaos\adm\fotos_usuarios\Fabiano_forca.jpg
continuo com o problema.
possivelmente o caminho de destino esteja errado
verifique usando a mesma logica
ASP
Imagem = server.MapPath("../"&Session("Foto"))Set fso = CreateObject("Scripting.FileSystemObject")
response.write(server.MapPath("Imagens")):response.end()
FSO.CopyFile Imagem, server.MapPath("Imagens")
>
possivelmente o caminho de destino esteja errado
verifique usando a mesma logica
ASP
Imagem = server.MapPath("../"&Session("Foto"))Set fso = CreateObject("Scripting.FileSystemObject")
response.write(server.MapPath("Imagens")):response.end()
FSO.CopyFile Imagem, server.MapPath("Imagens")
Olá Pessoal!
Resolvi o meu problema.
A questão era colocar uma contra-barra no final, assim:
[/code]
dim Imagem
Imagem = server.MapPath("../"&session("Foto"))
Set fso = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile Imagem, server.MapPath("Imagens\")&"\"
[code]
Muito obrigado Salgado pela dica e os demais pela atenção.
Fabiano.
Faça um teste colocando uma "\" contra-barra no final da pasta para onde você quer mover o arquivo.