fs.deletefile

[cristian73]

salve a tutti
vorrei estendere la funziona "elimina record" di Dreamweaver in modo da poter elimare anche i file allegati al corrispondente record. Tutto questo in una pagina che elenca i record 20 alla volta, ognuno dei quali ha il tasto elimina. Come posso passare il parametro ID?

io vorrei inserire questo codice che viene eseguito al momento di <form ACTION="<%=MM_editAction%>"> :

dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")

if fs.FileExists(Server.MapPath("doc/" & Recordset1.Fields.Item("file").Value)) then
fs.DeleteFile(Server.MapPath("doc/" & Recordset1.Fields.Item("file").Value))
end if
set fs=nothing

[teorema55]

Per cancellare l'eventuale file collegato a un record, ovviamente nel record ci deve essere un campo che contiene l'url del file collegato.

In tal caso, l'ACTION del form cancella record (o il link collegato al tasto cancella record, che deve contenere, nella querystring, il codice o ID del record stesso) deve puntare a una pagina fatta più o meno così:

'recupero il codice del record da eliminare:
codice = request("codice")

'creo e apro la connessione (ometto il codice) 

'recupero l'url del file collegato dal campo url_file_collegato di quel record:
SQL= "SELECT url_file_collegato FROM tabella WHERE codice_record="&codice&""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, objConn

if not RS.eof then
file_collegato = RS("url_file_collegato")
end if

RS.close
set RS = nothing

'elimino il file:
path_file="/cartella_contenente_i_files_collegati/"

Set FileObject=CreateObject("Scripting.FileSystemObject")
dir_file=Server.MapPath(path_file)
if (FileObject.FileExists(dir_file & "/" & file_collegato)) then 
FileObject.DeleteFile(dir_file & "/" & file_collegato)
end if

Set FileObject=Nothing

'infine elimino il record dal database:
SQL= "DELETE * FROM tabella WHERE codice_record="&codice&""
objConn.Execute SQL

'chiudo e distruggo la connessione (ometto il codice)

[cristian73]

nel codice di cancellazione di un file di dreamweaver ho inserito questo codice che post di seguito. Prima ho inserito la variabile "MM_recordFileAll" gererata dal campo del form: MM_recordFileAll = "" + Request.Form("MM_recordFileAll") + ""
tutto funziona veramente bene, con un colpo solo si cancella l'allegato e il record nel db
grazie

[CODE]<%

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordFileAll")) <> "") Then
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject ")

if fs.FileExists(Server.MapPath("../doc/" & MM_recordFileAll)) then
fs.DeleteFile(Server.MapPath("../doc/" & MM_recordFileAll ))
end if
set fs=nothing
End If
%>

[teorema55]

Ok, non conosco Dreamweaver, preferisco fare da me.......