ZIPVIEWER - LISTER LE CONTENU D'UN ZIP

Function ListZipFiles(FileName)
 On Error Resume Next
 dim xuz
 set xuz = Server.CreateObject("xunzip30.unzip")
 With xuz
  .InputFile = FileName
  .GetArchiveInfo
  Dim i
  dim tmp
  dim IconName,IconName2
 'Affichage de la table
 %>
 <TABLE WIDTH=100% BORDER=1 CELLPADDING=2 CELLSPACING=0>
  <COL SPAN=2>
   <TR ALIGN="center" BGCOLOR="#33CC00">
 <TD COLSPAN=2>Nombre de fichiers : <%=.FilesInArchiveCount%></TD>
</TR>
   <TR ALIGN="CENTER" BGCOLOR="#FF9900">
    <TD>Nom du fichier</TD>
    <TD>Date & Heure</TD>
   </TR>
 <%
  'response.write "Nombre de fichiers : " & .FilesInArchiveCount & "<BR><BR>" & vbCrlf
  For i = 0 To .FilesInArchiveCount
   tmp = Split(.FilesInArchive(CLng(i)),"|")
IconName2 = Split(tmp(0),".")
IconName = IconName2(1)
%>
 <TR BGCOLOR="#CCCCFF">
     <TD>
  <%
  If FileExist(Server.MapPath("./Images/" & IconName & ".ico")) Then
   %>
   <IMG SRC="./Images/<%=IconName%>.ico" WIDTH=64 HEIGHT=64>
   <%
   Else
    %>
    <IMG SRC="./Images/Unrecognized.ico" WIDTH=64 HEIGHT=64>
    <%
  End If
  %>
   <%=tmp(0)%></TD>
     <TD><%=tmp(6)%></TD>  
   </TR>
  <%
  Next
  %>
   </TABLE>
  <%
 End With
End Function