sovrascrivere il file

[djjunior]

Carissimi,
questo script

<% 

Dim objFS,objFolder,objFile 
Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
percorso = Server.MapPath("/public/") 
Set objFolder = objFS.GetFolder(""&percorso&"") 

Set Upload = Server.CreateObject("Persits.Upload") 

Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso) 

' This is needed to enable the progress indicator 
Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
filename=File.FileName 
estensione=file.ext 

estensione_ammessa=".jpg" 
estensione_ammessa2=".JPG" 

if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
file.delete 
%>
 





<p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="caricaimmagine1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
<%

else 
nuovo_filename="opera1_"&request.querystring("id")&".jpg" 

Dim fsoMyFile 


Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&"")) 
Set fsoMyFile = nothing 


    Response.redirect("caricamentoOK.asp?id=" & request.querystring("id") &"&file=" &nuovo_filename&"") 


end if 
end if 
%>

se trova lo stesso file mi da errore FILE ESISTENTE, come posso modificarlo che se presente il file deve sovrascriverlo direttamente?
G.

[robbe2000]

inanzi tutto ti conviene modificare queste due righe

estensione_ammessa=".jpg"
estensione_ammessa2=".JPG"

if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then
file.delete

in

estensione_ammessa=".jpg" 
if lcase(estensione)<>estensione_ammessa then file.delete

In questa maniera trasformi sempre in minuscolo e ti eviti i doppi controlli

Come seconda cosa controlli se il file esiste oppure no

if objFS.FileExists(Server.MapPath("/public/"&nuovo_filename&"")) ) then	fsofold.DeleteFile(Server.MapPath("/public/"&nuovo_filename&"")) )

[djjunior]

Grazie per la tua risposta, ho fatto la modifica dell'estensione ok..
Ho inserito il codice che mi hai segnalato, ho tolto le ) che c'erano in + e dava errore.
subito dopo l'assegnazione del nome al nuovo file

if objFS.FileExists(Server.MapPath("/public/"&nuovo_filename&"")) then 
fsofold.DeleteFile(Server.MapPath("/public/"&nuovo_filename&""))

ma ho questo errore:

Microsoft VBScript runtime error '800a01a8'

Object required: 'fsofold'

/public/upload.asp, line 36

come mai?
Grazie ancora
G.

[robbe2000]

si per le parentesi ho forse copiato qualcosa di troppo

per la cancellazione del file devi usare l'oggetto relativo al

Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")

Che dovrebbe essere questo se non erro dalla tua pagina ed in questa posizione

[robbe2000]

anzi scusa è questo quello che devi utilizzare.

objFS

[djjunior]

thankssssss

ho fatto solo la modifica che mi hai indicato prima e funziona.....

[djjunior]

ciao luca, scusa se riapro questo post
ho provato a caricare un file con estensione .JPG (maiuscolo)
ma utilizzando lo script che mi hai indicato:

estensione_ammessa=".jpg" 
if lcase(estensione)<>estensione_ammessa then 
file.delete

non lo fa diventare minuscolo
perchè nella pagina successiva dove dovrebbe essere visionato il file caricato, l'immagine non si vede, questo problema lo fa solo quando carico i JPG (maiuscolo) anche se li rinomino ad un certo punto dello script, cioè:

nuovo_filename="opera1_"&request.querystring("id")&".jpg"

Cosa dovrei modificare?
Grazie 1000
G.

[djjunior]

nessuno può aiutarmi?
Grazie 1000
G.

[ale_1976]

Ciao
lcase(estensione_ammessa)...solo una svista...