Invalid procedure call or argument

[razs 0]

Boas, este script de upload estava a funcionar bem mas de repente comecou a dar este erro

 

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/upload_form.asp, line 89 

 

o erro esta neste if assinalado com <------

 

 

if ficheiro <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_ficheiro)
For i = 1 to LenB(ficheiro)

nn=chr(AscB(MidB(ficheiro,i,1)))
MyFile.Write nn  <------------

Next
MyFile.Close
end if

 

Alguma ideia de porque isto deixou de dar?

[gregorio 0]

Verifique se você está com permissão de escrita na pasta ou se o problema não pode estar relacionado ao conteúdo da variável nn.

[razs 0]

Sim, se eu puser

nn=chrB(AscB(MidB(ficheiro,i,1)))

 

ele ja nao da erro mas grava o ficheiro com 0bytes

 

Nao consigo perceber porque e que deixou de dar.