SQL Server

Zip -- Exclude Files Based on Wildcard Matching

See more Zip Examples

Demonstrates how to use the SetExclusions method to exclude matching files from being added to a .zip. SQL Server

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    DECLARE @zip int
    EXEC @hr = sp_OACreate 'Chilkat.Zip', @zip OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    EXEC sp_OAMethod @zip, 'NewZip', @success OUT, 'qa_output/x.zip'

    -- Let's add files from the directory tree rooted at C:\AAWorkarea\ChilkatSampleProjects

    -- However.. we want to exclude all files ending in ".cache" or ".pdb" regardless of the sub-directory.
    -- Also exclude all files under any "obj" directory,
    -- and we also want to exclude any .exe found under a "win10-x64" directory.

    DECLARE @saExcludes int
    EXEC @hr = sp_OACreate 'Chilkat.StringArray', @saExcludes OUT

    EXEC sp_OAMethod @saExcludes, 'Append', @success OUT, '*.cache'
    EXEC sp_OAMethod @saExcludes, 'Append', @success OUT, '*.pdb'
    EXEC sp_OAMethod @saExcludes, 'Append', @success OUT, '*/obj/*'
    EXEC sp_OAMethod @saExcludes, 'Append', @success OUT, '*/win10-x64/*.exe'
    EXEC sp_OAMethod @zip, 'SetExclusions', NULL, @saExcludes

    -- Append promises of paths and files to be zipped.
    DECLARE @recurse int
    SELECT @recurse = 1
    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, 'c:/AAWorkArea/ChilkatSampleProjects/*', @recurse
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        EXEC @hr = sp_OADestroy @saExcludes
        RETURN
      END

    -- Create the zip from the file and directory promises added previously.
    EXEC sp_OAMethod @zip, 'WriteZipAndClose', @success OUT
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        EXEC @hr = sp_OADestroy @saExcludes
        RETURN
      END


    PRINT 'Success.'

    EXEC @hr = sp_OADestroy @zip
    EXEC @hr = sp_OADestroy @saExcludes


END
GO