[VB6] Decompresser un fichier ZIP

Decompresser un fichier ZIP [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 10-10-2007 à 16:29:23    

Salut,
 
J'ai un petit programme en VB qui se connecte sur un FTP et en affiche le contenu. Ensuite l'on a la possibilité de telecharger le fichier qui est en ZIP. Je voudrais savoir comment faire pour decompresser ce fichier et n'en garder que le contenu.
 
Merci


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 10-10-2007 à 16:29:23   

Reply

Marsh Posté le 10-10-2007 à 16:38:24    

Je ne sais pas ce que ça vaut, mais il m'a fallu 5 secondes pour trouver ça...
http://www.vbfrance.com/codes/LIRE [...] 39592.aspx

Reply

Marsh Posté le 10-10-2007 à 16:57:05    

oui moi aussi je l'avais trouvé mais vu que c'est pour l'implanter dans un programme, je voulais savoir si il y avait une manière plus simple, sans passer par des classes etc...seulement en utilisant par exemple la Dll UNZIP32.DLL


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 13-10-2007 à 19:55:23    

Bonjour,
Le code que j'utilise :
Activer la référence "Microsoft Shell Controls And Automation"
---------------------------------
Dim osa As Shell
    xrDec = <répertoire de décompression>
    nfCom = <chemin et nom du fichier à décompresser>  
    Set osa = New Shell
' Nombre de fichiers à extraire
    nbFic = osa.Namespace(nfCom).Items.Count
' Décompression des fichiers
    osa.Namespace(xrDec).CopyHere osa.Namespace(nfCom).Items
    Set osa = Nothing
---------------------------------
 
A+

Reply

Marsh Posté le 15-10-2007 à 08:30:57    

super merci !!!  tu me sauve la vie !!!!


---------------
Mes mémoires de Retrogamer - Le Retroblog de Turk182! en livres - Suivez le blog sur Facebook
Reply

Marsh Posté le 01-04-2013 à 23:21:14    

Salut !
J'ai activer la réference Microsoft Shell Controls And Automation.
J'ai essayer de mettre ton code et il me souligne les petits mots comme xrDec, nfCom, nbFic, Shell.
Je suis vraiment bloquer là-dessus et j'aimerais bien avoir de l'aide au plus vite !
Merci d'avance
 
A+ :)


---------------
Mine-Generation|Le serveur PvP sanglant !!
Reply

Marsh Posté le 03-04-2013 à 11:33:22    

minege a écrit :

Salut !
J'ai activer la réference Microsoft Shell Controls And Automation.
J'ai essayer de mettre ton code et il me souligne les petits mots comme xrDec, nfCom, nbFic, Shell.
Je suis vraiment bloquer là-dessus et j'aimerais bien avoir de l'aide au plus vite !
Merci d'avance
 
A+ :)


Bonjour,
J'ai créé vite fait un petit programme en VB6 avec le code de Thierry_94
pas de problème, j'ai simplement ajouté les déclarations des variables xrDec, nfCom, nbFic car j'utilise "Option explicit" en Général
mais ce n'est pas une obligation.
je n'ai aucun "soulignement" (?) sur la commande shell
et j'ai rien déclarer d'autre que "Microsoft Shell Controls and Automation" dans les références  
 
Bon courage

Reply

Marsh Posté le 08-04-2013 à 17:06:18    

buffalophil a écrit :


Bonjour,
J'ai créé vite fait un petit programme en VB6 avec le code de Thierry_94
pas de problème, j'ai simplement ajouté les déclarations des variables xrDec, nfCom, nbFic car j'utilise "Option explicit" en Général
mais ce n'est pas une obligation.
je n'ai aucun "soulignement" (?) sur la commande shell
et j'ai rien déclarer d'autre que "Microsoft Shell Controls and Automation" dans les références  
 
Bon courage


C'est bizarre, car moi, quand j'ai mis ça il m'a souligné tout ces mots.
Microsoft Visual Basic Express 2010 c'est VB6 ?
En Vb.net je sais pas si c'est ça, pour déclarer les variables, c'est "Dim"


Message édité par minege le 18-04-2013 à 17:42:39
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed