(SQL Server) Another Path-in-Zip Example

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- This example requires the Chilkat API to have been previously unlocked.
    -- See Global Unlock Sample for sample code.

    DECLARE @zip int
    -- Use "Chilkat_9_5_0.Zip" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.Zip', @zip OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    -- Intialize the zip object by calling NewZip.
    DECLARE @success int
    EXEC sp_OAMethod @zip, 'NewZip', @success OUT, 'myZip.zip'

    -- Add references to files:
    DECLARE @recurse int
    SELECT @recurse = 1
    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, '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:
    EXEC sp_OASetProperty @zip, 'AppendFromDir', 'c:\temp\a'

    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, '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:
    EXEC sp_OASetProperty @zip, 'AppendFromDir', 'c:\temp'
    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, 'a\subdir1\*', @recurse

    EXEC sp_OAMethod @zip, 'WriteZipAndClose', @success OUT

    EXEC @hr = sp_OADestroy @zip


END
GO