[RESOLVED] Zipping an entire folder content ( with folders and files)

[MikeSpider]

Thanks for the tip.

I used AddDirectory, but it doesn't do anything.

  pjDir = FBDialog.SelectedPath

            If pjDir <> "" Then
                Using zip As ZipFile = New ZipFile
                    zip.AddDirectory(pjDir)
                    zip.Save("MyZipFile.zip")
                End Using
            End If