LISTING ET SUPPRESSION DE FICHIER

<%
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>