Listing et suppression de fichier

Commenter

Contenu du snippet

Question que je me posait et ce sur le forum donc je me répond ici ;-)

- Listing de fichier dynamique (FileSystemObject)
- Case a cocher pour fichier a supprimer
- bouton suppression

Doit avoir un dossier nommé ZipFile et ayant des fichiers à l'intérieur héhé

Source / Exemple : 


<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
dir = Server.MapPath("ZipFile/")

' === Destruction des fichiers sélectionnés

if request.form("ziptodel") <> "" then
   for each truc in request.form("ziptodel")
    FSO.deleteFile(dir & "\" & truc)
   next
end if

set foldPt = FSO.GetFolder(dir) 
set fc = foldPt.Files
%>
&nbsp;Nombre de fichier .zip : <% = fc.count %> <br><br>
<table><form method="post">
<%for each f in fc %>
   <tr>
    <td bordercolor="#000000">
   <div style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
   Nom : <a href="ZipFile\<%=f.name%>"><%=f.name%></a><br>
   Taille : <%=f.size%> octets<br>
   Création : <%=f.dateCreated%><br>
   Modification : <%=f.dateLastModified%><br>
   Dernier accès : <%=f.dateLastAccessed%><br><br>
   </div>
    </td>
    <td>&nbsp; &nbsp; &nbsp; &nbsp; <input type="checkbox" name="ziptodel" value="<%=f.name%>"> Supprimer</td>

   </tr>
<% next%>
   <tr>
    <td colspan=2 align=left>
    <br><br><input type="submit" value="Supprimer">
    </td>
   </tr>
</form></table>

Conclusion :


tres basique mais si sa peut aider ;-)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Jackboy)