[Resolvido] Problema com FSO

[fazeredo2002 0]

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 Imagem

Imagem = 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.

[Salgado 4]

Faça um teste colocando uma "\" contra-barra no final da pasta para onde você quer mover o arquivo.

[jrcardozo 4]

o caminho está correto? existe algo na session("foto")?

[fazeredo2002 0]

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

[fazeredo2002 0]

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?

[jrcardozo 4]

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")

[fazeredo2002 0]

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.

[jrcardozo 4]

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")

[fazeredo2002 0]

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.