0

I was trying to make a program that zips a folder but I keep getting a NullReferenceException and it does not create the required zip file. Have I forgot something? I am using Shell32 and the zip sub comes from a codeproject tutorial. Anyways, here is the code:

Imports System.IO
Imports Shell32
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Hide()
    Me.ShowInTaskbar = False
    Zip()
End Sub
Sub Zip()
    Dim sc As New Shell32.Shell()
    Dim input As Shell32.Folder = sc.NameSpace("C:\minercraft v2.0\")
    Dim output As Shell32.Folder = sc.NameSpace("C:\minercraft v2.0\backup.zip")
    output.CopyHere(input.Items, 4)
End Sub

End Class
user3163534
  • 23
  • 4
  • Sure, you forgot to check if you got Nothing back from sc.Namespace(). Which tells you that the folder doesn't exist. Isn't it called "minecraft"??? – Hans Passant Feb 22 '14 at 00:55
  • No, the folder exists but this class is used in another class that check if the folder exists before running the sub – user3163534 Feb 22 '14 at 01:03

1 Answers1

1

Here is an example that worked for me: Tweak your paths as necessary. The trick is that you have to write out a blank file first.

see: http://www.codeproject.com/Tips/257193/Easily-zip-unzip-files-using-Windows-Shell32

  Dim sc As New Shell32.Shell()
  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)
  Dim input As Shell32.Folder = sc.NameSpace("C:\temp")
  Dim output As Shell32.Folder = sc.NameSpace("C:\backup.zip")
  output.CopyHere(input.Items, 4)
Derek
  • 7,615
  • 5
  • 33
  • 58