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