backup app

[mustangBE]

hallo

ik ben op zoek naar een voorbeeld van een backup prog.
ik wil bij het afsluiten van mijn app dat alle bestanden van de app (incl. DB)worden ingepakt in een zip.
heb al verschillende code's geprobeerd , maar krijg geen enkele werkende.

http://msdn.microsoft.com/en-us/library/ms404280(v=vs.110).aspx
http://www.v-basic.net/2011/11/create-zip-file-with-vbnet.html
http://www.vbforums.com/showthread....s-a-file-frm-VB-program&p=2020993#post2020993

 

[huijb]

Ik hoop niet dat je verwacht dat de helpers jouw drie linken gaan doorlezen.

 

[mustangBE]

heb het gevonden

Sub Zip()
        '1) Lets create an empty Zip File .
        'The following data represents an empty zip file .

        Dim startBuffer() As Byte = {80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, _
                                     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        ' Data for an empty zip file .
        FileIO.FileSystem.WriteAllBytes("c:\backup.zip", startBuffer, False)

        'We have successfully made the empty zip file .

        '2) Use the Shell32 to zip your files .
        ' Declare new shell class
        Dim sc As New Shell32.Shell()
        'Declare the folder which contains the files you want to zip .
        Dim input As Shell32.Folder = sc.NameSpace("c:\van")
        'Declare  your created empty zip file as folder  .
        Dim output As Shell32.Folder = sc.NameSpace("c:\backup.zip")
        'Copy the files into the empty zip file using the CopyHere command .
        output.CopyHere(input.Items, 4)

    End Sub