CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 09 08 11:06:29

DELL INSPIRON MINI 9 - ENFIN EN VENTE !!! par ebartsoft

SOLUTION TEMPLATE ET PROJECT TEMPLATE DANS VISUAL STUDIO par cyril

POCKETIE ET ASSIGNATION DU SRC D'UN ELEMENT IMG par jay

CONVERSION DE FICHIERS RAW EN FICHIER JPEG AVEC WPF par odewit

MISE à JOUR DU MOTEUR DE RECHERCHE DES ARRêTS DE BUS DE MONTRéAL par jay

RE : ~ BESOIN D'AIDE SUR UN CODE HTML ~ par PascalCmoa

USERCONTROL ET MASTERPAGE par hudon77

~ BESOIN D'AIDE SUR UN CODE HTML ~ par julien7212

RE : DBNULL ERREUR LORS DU BIND AVEC SQL SERVER par fabienfs

RE : DBNULL ERREUR LORS DU BIND AVEC SQL SERVER par ggtry

+ de logiciels à télécharger

HTC Touch P3650 Smartphone au meilleur prix

1 238 614 membres
119 nouveaux aujourd'hui
14 318 membres club

Trouver une ressource

Trouvez une ressource parmi 38 622 codes, 1 171 383 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ZIPVIEWER - LISTER LE CONTENU D'UN ZIP

Information sur la source

Catégorie :Maths & Algorithmes Classé sous : zip, compression, pk Niveau : Débutant Date de création : 07/11/2006 Date de mise à jour : 07/11/2006 21:28:25 Vu / téléchargé: 4 441 / 217

Auteur : ghuysmans99

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (0)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

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

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

XZip
- XUNZIP30.OCX242 176 octets
- xzipper30.ocx291 328 octets
ZipViewer
- Images
  - unrecognized.ico 199 270 octets
- Styles
  - Styles.css 350 octets
- default.asp 2 706 octets
ScreenShot.jpg 63 358 octets

Télécharger le zip

Historique

07 novembre 2006 20:49:09 :: Ajout du lien pour les icônes
07 novembre 2006 21:28:25 :: Ajout des ocx dans le zip (XZip & XUnzip)

Sources du même auteur

UN CHAP LOGIN STYLÉ EN ASP3, AVEC UNE BDD EN MYSQL ET QUI SU...

ANTIBOT

Toutes les sources de ghuysmans99

Sources de la même categorie

CARRÉ MAGIQUE par stankov

AFFICHER LES LIGNES D'UN DATATABLE DS UN ORDRE ALÉATOIRE par taillecrayon

SUITE DE NOMBRES ALESATOIRES DIFFERENTS par ErB

CONVERTIR UN NOMBRE DE BASE 10 EN BASE 36 ET L'INVERSE par Aurelyyy

CRYPTAGE ALPHA NUMÉRIQUE par MalcolMZ

Toutes les sources de la catégorie Maths & Algorithmes

Sources en rapport avec celle ci

UTILISATION D'UN HANDLER POUR TÉLÉCHARGER PLUSIEURS FICHIERS... par izords

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Compression en format zip sous asp. [ par Jackboy ] bonjour ! Compression en format zip sous asp.Sélection dynamique d'image (selon choix d'un usager) et compression des images en format zip ?Avez problème de décompression de fichier zip- les fichiers restent ouverts [ par mohamed_bn ] med belhassen j'ai utilisé ce petit programme que j'ai trouvé sur ce site dans mon application web. il permet de décompresser les fichi Zip en .net (+ précisément C#) [ par Jackboy ] Salut !J'aimerai avoir la méthode ou le composant que je pourrai utiliser pour transferré des images et autres chez un client (download a sa décompression de fichier zip [ par coulis ] Bonjour à tous,On transfert quotidiennement sur mon serveur le fichier suivant : "VOWPC190.tar.Z"Il s'agit d'un zip que je dois décompresser transfert d'un fichier zip à partir du serveur vers son poste client [ par bsmoumene ] Bonjour Monsieur,veuillez m'aider, voilà mon problème c que je veux donner la possibilité au client de faire un transfert d'un fichier Récupérer le contenu d'une .zip [ par foofur ] Bonjour à tous, Je vais essayer de m'expliquer au mieux :1/ je dois me connecter sur un serveur via ftp2/ je dois recuperer le fichier le plus re Télécharger un fichier zip [ par TTMan ] Bonjour,Je vous expose mon problème:Je consomme un webservice qui me permet de récupérer le lien vers un fichier zip contenant un xml que j'intègre da Zip [ par jorrie ] bonjours, Comment peux zipper un fichier qui est place sur le serveur a l'aide d'une page asp.x place sur un ordinateur autre que le serveur CS TOOLBAR [ par BruNews ] OHE les utilisateurs IE: NOUVELLE CSBar incluant liens vers tous les sites CS, Emploi, Technos, boutique et geoguide y compris. http://brunew Compression [ par lephy ] Bonjour,Je cherche a compresser des fichiers en fichier zipMerci de m'aider