Zipviewer - lister le contenu d'un zip

Télécharger le projet
Commenter

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 ...
Télécharger le projet

Codes Sources

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 (ghuysmans99)