Accueil > > > COMPRESSION ZIP GRATUITE INTÉGRÉE À WINDOWS
 COMPRESSION ZIP GRATUITE INTÉGRÉE À WINDOWS
 Information sur la source
 Description
Compression ZIP Gratuite intégrée à Windows, utilisation de SHELL32.DLL. Il faut ajouter une référence vers cette DLL au projet (L'annulation de l'utilisateur n'est pas prise en compte... ce n'est pas un source travaillé c'est juste pour la culture..)
 Source
- <STAThread()> Public Sub Main(ByVal Args() As String)
- Try
- Dim emptyzip() As Byte = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
-
- Dim fs As FileStream = File.Create(Args(1))
- fs.Write(emptyzip, 0, emptyzip.Length)
- fs.Flush()
- fs.Close()
- fs = Nothing
- Dim sc As Shell32.ShellClass = New Shell32.ShellClass()
- Dim SrcFlder As Shell32.Folder = sc.NameSpace(Args(0))
- Dim DestFlder As Shell32.Folder = sc.NameSpace(Args(1))
- Dim items As Shell32.FolderItems = SrcFlder.Items()
- DestFlder.CopyHere(items, 20)
- Dim i As Integer = SrcFlder.Items.Count
- Console.WriteLine(i)
- While DestFlder.Items.Count < i
- System.Threading.Thread.Sleep(1000)
- End While
- Catch ex As Exception
- Console.WriteLine(ex.Message)
- End Try
- End Sub
<STAThread()> Public Sub Main(ByVal Args() As String)
Try
Dim emptyzip() As Byte = New Byte() {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Dim fs As FileStream = File.Create(Args(1))
fs.Write(emptyzip, 0, emptyzip.Length)
fs.Flush()
fs.Close()
fs = Nothing
Dim sc As Shell32.ShellClass = New Shell32.ShellClass()
Dim SrcFlder As Shell32.Folder = sc.NameSpace(Args(0))
Dim DestFlder As Shell32.Folder = sc.NameSpace(Args(1))
Dim items As Shell32.FolderItems = SrcFlder.Items()
DestFlder.CopyHere(items, 20)
Dim i As Integer = SrcFlder.Items.Count
Console.WriteLine(i)
While DestFlder.Items.Count < i
System.Threading.Thread.Sleep(1000)
End While
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Shell32.dll / Windows XP [ par YS1 ]
Je travaille sous Windows ME, mais j'ai besoin de la DLL Shell32.dll de Windows XP (32 bits).Quelqu'un peut-il me l'envoyer à l'adresse suivante :mail
Algorithme de compression (ZIP RAR ACE....) [ par Fildomen ]
Salutje veux me lancer dans un prog de compression, masi je ne trouve pas de doc, s'il vous plait passez moi un lien sur les algorihmes de n'importe e
Compression / décompression [ par nicolasheurtevin ]
Bonjour, J'ai quelques petits soucis après avoir essayé différents bouts de code permettant la compression zip et la décompressi
Compression [ par eldim ]
Bonjour,Est-ce quelqu'un connait un programme zip qui vérifie si un fichier existe déja dans un zip et compare les versions avant d'ajouter
Problème avec Shell32.FolderItem vb.net 2008 [ par hyunikel ]
Bonjour, Je viens de finir une application windows sous vb 2008 qui marche sans aucun problème sous windows xp. Sauf que lorsque j'ai changé de sessi
Compression ZIP VB.NET 2003 [ par eldim ]
Bonjour,Je dispose de la class "ICSharpCode.SharpZipLib.Zip" pour compresser mes fichier en VB.NET.Y a-t-il un moyen de vérifier si un fichier ex
Problème Compression zip [ par Taurus67 ]
Bonjour, je fait un petit logiciel qui doit compresser en zip des demos (.dem) ( counter strike ) une fois que celle ci ont fini d'être enregistr
Besoin d'aide :/ macro de zip/compression [ par sabrina75017 ]
Bonjour à Tous, Je suis bloquée sur le code d'une macro et là, je déclare forfait de mon côté, j'ai vraiment besoin de votre aide. La situation :
Dézipper fichiers .zip [ par Blodarn ]
Bonjour à tous, Je suis en train de coder un launcher Minecraft pour mon serveur. Celui-ci doit donc télécharger des fichiers mis en ligne avec dropb
[Déplacé VB -> C++]Detection et Affichage SSID [ par marwenouri ]
-----------------------------------------------------------------------------+ | Configuration
|
Derniers Blogs
 ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|