Chamada de procedimento ou argumento inválido

Question

pessoal estou tentando fazer um upload

qdo preencho o form e mando enviar os dados

exibe o seguinte erro:

 

Chamada de procedimento ou argumento inválido
/VISTEON_SOUND/painel_de_controle/salvaagenda.asp, line 100

 

linha 100 >>> MyFile.Write chr(AscB(MidB(foto,i,1)))

 

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))

Next
MyFile.Close
end if

 

o que tenho que fazer para concertar isso?

desde ja obrigado pela atenção e ajuda de todos.

ate mais

 

Answer 1

Pessoal consegui com que parasse de dar o erro.

ta fazendo o registro, porem não esta criando o arquivo na pasta de destino

como fazer para que seja criado o arquivo ?

 

if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to Len(foto1)
MyFile.Write chrB(AscB(MidB(foto,i,1)))

Next
MyFile.Close
end if

 

esta sendo exibido a seguinte mensagem:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)
Permissão negada
/VISTEON/Painel_de_controle/salvaagenda.asp, line 99

 

linha 99

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

eu dei todas as permissoes possiveis, mas continua dizendo que nao tem permisao.

por que?