(VB.NET UWP/WinRT) Another Path-in-Zip Example

Another example about getting the correct paths within a .zip.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim zip As New Chilkat.Zip

' Intialize the zip object by calling NewZip.
Dim success As Boolean = zip.NewZip("myZip.zip")

' Add references to files:
Dim recurse As Boolean = True
success = Await zip.AppendFilesAsync("c:\temp\a\subdir1\*",recurse)

' Assuming that the file c:\temp\a\subdir1\dude.gif exists,
' the .zip will contain "dude.gif" without any path information.

' The component has no
' choice but to use "c:\\temp\\a\\subdir1" as the root.
' It's not possible for the component to know if you
' wanted subdir1\ or a\subdir1\ or temp\a\subdir1
' paths prefixed for each file added.

' To control the path within the zip, set the AppendFromDir
' directory and then use a relative path in AppendFiles.
' For example:
zip.AppendFromDir = "c:\temp\a"

success = Await zip.AppendFilesAsync("subdir1\*",recurse)

' This causes c:\temp\a\subdir1\dude.gif to be added as
' "subdir1\dude.gif" within the .zip.

' If you need the path within the .zip to be "a\subdir", then
' do this:
zip.AppendFromDir = "c:\temp"
success = Await zip.AppendFilesAsync("a\subdir1\*",recurse)


success = Await zip.WriteZipAndCloseAsync()