9 messaggi dal 26 settembre 2003
Salve a tutti,
rieccomi a voi con un quesito più complicato di quello postovi qualche settimana fa.

Sto utilizzando il FileSystemObject ma non mi ci raccapezzo più. Vediamo se mi potete dare una mano.

Dall'area di amministrazione del mi sito ho creato 2 pagine: imglist.asp e imgdelete.asp

La prima, funzionante, mi serve per visualizzare le immagini che sono presenti nella directory "public/foto/" la seconda dovrebbe contenere il codice che mi permette di cancellare le foto dalla suddetta cartella.

Che cosa ho fatto?
Dalla pagina imglist.asp ho creato la solita icona del cestino dove teoricamente ci si clicca e si cancella il file in oggetto. Questo non accade.

Vi allego pezzi di codice affinchè possiate capire il mio problema:

<!-- Da imglisp.asp passo il nome del file -->
<a href="imgdelete.asp?Image=<%= strFile.name %>">

<!-- in imgdelete.asp recupero e cancello -->
<%
Dim objFso, objFolder, FileObject, Image, ImgFile

strPath = "/public/foto/"
ImgFile = Request.QueryString("Image")
Set objFso = Server.createObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(Server.MapPath(strPath))
'System.IO.File.Delete(Server.MapPath("public/foto/" & ImgFile))
Set File = FileObject.GetFile(objFolder & ImgFile)
File.DeleteFile

Response.Redirect("conferma.asp?msg=" & Server.URLEncode("Foto Cancellata con Successo!"))
%>

Come potete vedere ho usato anche System.IO.... ma continua a non funzionare. Non ho trovato nessun esempio pratico in giro che simuli questa cosa.
Attendo qualche buon samaritano che mi spieghi dov'è l'inghippo. Grazie
Da devguru.com:

<%
dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject") 
filesys.CreateTextFile "c:\somefile.txt", True 
If filesys.FileExists("c:\somefile.txt") Then
   filesys.DeleteFile "c:\somefile.txt" 
   Response.Write("File deleted")
End If 
%>

"This message was written using 100% recycled electrons"
9 messaggi dal 26 settembre 2003
Mi da un errore sui permessi, ma ho il dubbio che sia incorretto il codice da me modificato.

<%
Dim Filesys, ImgFile

ImgFile = Request.QueryString("Image")

ImgFile = "/public/foto/" & ImgFile
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateTextFile "ImgFile", True

If filesys.FileExists("ImgFile") Then
filesys.DeleteFile "ImgFile"
Response.Redirect("conferma.asp?msg=" & Server.URLEncode("Foto Cancellata con Successo!"))
End If
%>

Vero?
Eppure ho scaricato vari tutorial su quest'oggetto ma continuo a non capire dove sta il problema.
9 messaggi dal 09 luglio 2002
"tpappala" ha scritto
ImgFile = "/public/foto/" & ImgFile


ImgFile = Server.MapPath("/public/foto/" & ImgFile)

visuddhi

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.