Errore upload baol più file se uno esiste

[edo72]

Ciao a tutti...

Sto sistemando lo script di baol e vorrei che se uploado più file e uno esiste non venga scritto mentre l'altro si...

In realtà lo script va in errore alla riga dove viene aperto lo stream (vedi codice sotto): ADODB.Stream error '800a0e79'
L'operazione non è consentita se l'oggetto è aperto.

Se io setto il parametro che il file venga rinominato e scritto ugualmente non ci sono problemi ma io non posso farlo.

Qualche idea?

grazie
edo

Codice:
__________________________________________________ ____________________
Private sub Modules_Save(FileName)
Dim TextFile,TestOverWrite
select Case Files("StreamType")
Case 1
Stream.Type = Files("StreamType")
Stream.Open
Stream.Write Files("Content")
If TestError(err) then
exit sub
end if
on error resume next
Stream.SaveToFile FileName,GetOverValue(Files("OverWrite"))
If TestError(err) then
exit sub
end if
Stream.close
on error goto 0

[viki1967]

Ciao.

Se non ricordo male nella documentazione dell'upload di Baol è prevista la possibilità di rinominare il file se questo già esiste...

Secondo me per non fare l'upload di un file che già esiste sul server devi utilizzare l'oggetto FSO.