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
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
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
Compatibilité VB6.0 et windows 7 [ par rebelette ]
je voudrais savoir si VB6.0 est compatible avec windows seven, car il ne l'est pas avec windows vista et je dois changer d'ordi
visual basic 6 téléchargement gratuit [ par patelec ]
Je dispose d'une application non lisible en visual basic 2008. Comment peut-on télécharger la version V6. merci...
winsock problem [ par tibaw ]
voila je possede visual basic 2008 express edition et je cherche a creer un chat par winsock . je fais la demarche normale trouvée dans des tutos mais
|
Derniers Blogs
ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2ZUNE : NOUVELLE VERSION DU ZUNE SOFTWARE - V 4.2 par ROMELARD Fabrice
Avec la dernière génération du lecteur MP3 de Microsoft, le ZUNE HD, Microsoft a publié une nouvelle version du logiciel pour PC. Ainsi, je me suis décidé à installer celle-ci sur mon Tablet PC ACER, comme toujours le logiciel est donc tél...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|