Zipviewer - lister le contenu d'un zip

Soyez le premier à donner votre avis sur cette source.

Vue 13 896 fois - Téléchargée 448 fois

Description

Ce petit programme liste le contenu d'un zip.
Il utilise l'ocx gratuit XUnzip.

Le code fonctionne aussi en VB6 (Il suffit d'ajouter "Softwarium XUnzip" dans la liste des composants)

Source / Exemple :


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

Conclusion :


Pour les icônes, elles sont sur http://users.skynet.be/huysmans/downloads/ASP_Applications/ZipViewer/Images_ZipViewer.zip
Je ne savais pas les mettre dans le zip car elles prenaient trop de place ...

Codes Sources

A voir également

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.