(SQL Server) Zip and Keep Open

See more Zip Examples

Zip a directory tree by calling WriteZip instead of WriteZipAndClose. When WriteZip is called, the created zip is automatically opened and the zip object contains references to the compressed zip entries (mapped entries) contained within the .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
    DECLARE @iTmp0 int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example assumes 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

    DECLARE @success int

    DECLARE @zipPath nvarchar(4000)
    SELECT @zipPath = 'c:/temp/myFiles.zip'

    -- Initialize the zip object, which also sets the FileName property to the path of the zip to be created.
    EXEC sp_OAMethod @zip, 'NewZip', @success OUT, @zipPath

    -- Append references to files to be zipped.
    DECLARE @recurse int
    SELECT @recurse = 1
    EXEC sp_OAMethod @zip, 'AppendFiles', @success OUT, 'c:/temp/files_to_zip/*', @recurse
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        RETURN
      END

    -- Write the .zip, but don't close the zip file.
    -- The zip file we just created is automatically opened and the zip object
    -- now contains entries that are contained within the zip.  (They are memory-mapped entries)
    EXEC sp_OAMethod @zip, 'WriteZip', @success OUT
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @zip
        RETURN
      END


    PRINT 'Successfully created ' + @zipPath

    -- Let's look at what's in the .zip we just created..

    DECLARE @numEntries int
    EXEC sp_OAGetProperty @zip, 'NumEntries', @numEntries OUT
    DECLARE @i int
    SELECT @i = 0

    DECLARE @entry int

    WHILE @i < @numEntries
      BEGIN
        EXEC sp_OAMethod @zip, 'GetEntryByIndex', @entry OUT, @i
        EXEC sp_OAGetProperty @entry, 'IsDirectory', @iTmp0 OUT
        IF @iTmp0
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT

            PRINT @i + ': ' + @sTmp0 + ' (directory)'
          END
        ELSE
          BEGIN

            EXEC sp_OAGetProperty @entry, 'FileName', @sTmp0 OUT
            PRINT @i + ': ' + @sTmp0
          END
        EXEC @hr = sp_OADestroy @entry

        SELECT @i = @i + 1
      END

    -- Close the zip file when finished.
    EXEC sp_OAMethod @zip, 'CloseZip', NULL

    EXEC @hr = sp_OADestroy @zip


END
GO