Compression zip gratuite intégrée à windows

Commenter

Contenu du snippet

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 / Exemple : 


<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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_eldim)