Les Snippets

Connexion

zip folder

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 15/09/2008 14:01:42 et initié par gillardg [Liste]
Vue : 4545
Catégorie(s) : API, Fichier / Disque, Système
Langages dispo pour ce code :
- VB 2005, VB 2008



Langage : VB 2005 , VB 2008
Date ajout : 15/09/2008
Posté par gillardg [Liste]

Imports System.IO
Imports Shell32

''' <summary>

''' Exemple

''' Dim mesdoc As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\mesdoc.zip"

''' Dim folder As New FolderBrowserDialog

''' If folder.ShowDialog() = Windows.Forms.DialogResult.OK Then

''' CompressFolder(mesdoc, folder.SelectedPath)

''' End If

''' </summary>

''' <param name="CompressedFileName"></param>

''' <param name="FolderToCompress"></param>

''' <remarks></remarks>
Sub CompressFolder(ByVal CompressedFileName As String, ByVal FolderToCompress As String) 
Dim B(21) As Byte

B(0) = 80 : B(1) = 75 : B(2) = 5 : B(3) = 6

File.WriteAllBytes(CompressedFileName, B) 'Make an empty PKZip file.
Dim SH As New Shell 
Dim SF As Folder = SH.NameSpace(CompressedFileName)
Dim DF As Folder = SH.NameSpace(FolderToCompress) 
SF.CopyHere(DF)
End Sub 





Remarque :
une réference à \Windows\system32\Shell32.dll est impérative pour que ce code fonctionne

Snippets en rapport avec : Zip, Shell32



Codes sources en rapport avec : Zip, Shell32

{Visual Basic, VB6, VB.NET, VB 2005} COMPRESSION ZIP GRATUITE INTÉGRÉE À WINDOWS
Compression ZIP Gratuite intégrée à Windows, utilisation de SHELL32.DLL. Il faut ajouter une réfé...

{Visual Basic, VB6, VB.NET, VB 2005} ZIP UNZIP DOSSIER (COMPRENANT FICHIER(S) ET SOUS DOSSIER(S)) EN UTILISANT ICSHARPCODE.SHARPZIPLIB.DLL
je cherchais un code pour zipper dézipper un dossier contenant des fichiers et des sous dossiers, e...

{Python} PHOTO SATELLITE AVEC ARCHIVAGE
Cette source lorsqu'elle est lancée télécharge un fichier 'png' sur le site "http://www.sat24.com/" ...

{JAVA / J2EE} J(DE)COMPRESSION V4 BETA
C'est un programme qui fait plus ou moins la même chose que Winrar mais avec java. Sans faire de la...

{Visual Basic, VB6, VB.NET, VB 2005} JPG + ZIP = JPG ET ZIP
Arf : ma première source (publique) en .Net ! Sur une idée de jx53 sur le forum de VBFrance, voil...

{PHP} ZIP TO WEB (ZIP2WEB)
L'objective de ce script est de gérer la mise à jour d'un document Word faite par plusieurs utilisat...

{JAVA / J2EE} ZIP_FIC -- ARCHIVAGE AU FORMAT ZIP D'UN RÉPERTOIRE
Un petit bout de code permettant de créer une archive ZIP à partir de fichiers présents dans un répe...

{C / C++ / C++.NET} AUTO DESTRUCTION EXE
compresser le fichier en zip avec un password en crypter une 2iem foix avec windows api RSA cré...

{Visual Basic, VB6, VB.NET, VB 2005} VBZIP GESTION D'ARCHIVES AU FORMAT ZIP UTILISANT IONIC.UTILS.ZIP.DLL
archivage au format "zip" création de zip ouverture ( affichage des nom de fichiers ) ajout , su...

{Visual Basic, VB6, VB.NET, VB 2005} VBZIP ZIP ET UNZIP EN VB.NET
application simple qui traite les archives au format Zip création d'archive , ajout de fichiers ,...