Salut. J'aimerais si quelqu'un connaissait une procédure pour supprimer un fichier d'un dossier. Parceque la situation est la suivante : Un utilisateur envoi un mail avec une pièce jointe à un autre utilisateur. Le deuxième, après avoir lu son mail, veut le supprimer. Donc par conséquent, en le supprimant, la pièce jointe créée dans un dossier devrait être supprimée, et malheureusement, le mail se supprime mais pas le fichier. Tout ceci se passe dans un intranet. Quelqu'un peut m'aider. Ce que j'ai fait :
Page function_pj :
sub delete_pj(root)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
If FileObject.FileExists(root) then
FileObject.deleteFile(root)
end if
Set FileObject=nothing
end sub
Page supprimail :
set conn=server.createobject("adodb.connection")
conn.open "bddcci"
req_sql="SELECT Piece_Jointe,EtatMail FROM MAIL Where NumMAIL="&request("num")
set del=conn.execute(req_sql)
if del.fields("piece_jointe")<>"null" and del.fields("EtatMail")="ENVOYE" then
delete_pj(NouveauFic_Recu)
end if
Response.Write(NouveauFic_Recu)
req_sql="DELETE FROM MAIL WHERE NumMAIL ="&request("num")
conn.execute(req_sql)
Les Canaris redeviendront Champions de France.