Carissimi,
questo script
se trova lo stesso file mi da errore FILE ESISTENTE, come posso modificarlo che se presente il file deve sovrascriverlo direttamente?codice:<% 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 %>
G.

Rispondi quotando